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JS" Ub^» J*-»U3 ^ ^j^JI ojJuj . (Art) qAJI jLU ^ _,! (Science) 
jJba ^l, ^Ajg Ik-jjJI v-olj^JI ^ jujuJI Jl E ls»u -ol ^1 l^ ^ IWI ^>u ^xJI 

. -Oj-aiwA Jl fcU.^ 2L*IJu1ll Ojjtfj g«L>JI JLkivo Sj*»^ 
Oli ^oj^JI ^titr** ^o JuJuJI ^k^l^j al*itf *J L lil - 5-aJu** ijIjudI j] »_Sjla 

^^ ^^ ^I^jJI plkdl 1 p», >^l £. ^l« ^ xJUxJI ol>kiw jin I V ol>^ j 
JLddiJI ^i ^Lill ^ -L*i Lab JUvuJI jJiJI ^i o5ls». , Sll ^s»j *, . U«!l 

SjLfe'illj |> ^ ** aA w&3 j^^**- ^ O^^' O* -K*^ ^ J 1 * 3 * g*W 1^°^ ^-o-L-JI 

JU^ *-.jUI *k~.l^ J-iUaJ 1 ^-S^ V 1 ^ 1 SjJJtflj S^j&JI 1 ^ ci5U» Vj 
£#£+1 -LilJUbl A*-l ^o ^~Uj ^3JI v_jUSJI IJlA 8_^51i t^OlS* JmJI 11a ^j . JuJixJI 
^ ^Col[j £-•[«"" J»*i>*J JLuJlJ^J *-JLJI <-OJ>»JI Ji^ jJUl - g^[/JI JaJL&v. 

^jlou> J-SLii JU.^xall JjJLsJJ ^iUJI jam <«jbu qji - JLoJl*ol«JI a*v. > JI o[ja1 
£-oj. ^jUUI i&^l oljLL'Jll jl»-! ^4 UbJulib ^> j,5>»-Ij jl 5^msj ajl*Cj •^n 

j^J ol^j^JI Jo** iwiL^I pjljliJI ^Ja7»u LjliJUo O ^1 jJlJI j^^-u ^LxJI 
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UsUI &aa Jl l5 ^i3 9 . DBASE *isL ^Ajt ^ks ^j s>**dl JU^JI ol^l a-1 

Jl-#j DBASE III+ , DBASE IV , POXBASE , FOXPRO ^[h |J&J 
«U.i**«J| **-*" vJUj ^1,1, U. ,^ J ^>\&\ IJu» J* glial ■*** *^» U1J 

"j^Mi „>»jr cbui j*|y 8,bi jj&i ^is* t juu jiJ^-j . ^asi-Ji 60A fcj ^ 

j. bo tIr -. ^1 •lji»JL u »lj ^U-^il »_-JL-tj j«y J*> <J^oll ^> ^502*11 *i5L>ULll 

. DBASE UJL* qAy, 

d>>cdl pj qv 9 [x.H\ aaa ^ o*- J£ «jubj ojl^j lj « SaIsaJI v lx£JI J>^i, 
. ^Ul «ISL»j r lkJI (KJ-.SJ r UI . jlW|, JUj^UI jKMI <>-* ^ 

JT A l , «y jwJLu Ji* ^ ^^,UJI c^Usj Ljopj . *fela- (Jb *LJ ^L^JI 11a 
v Lx£)l Iaa ^ SajL*JI *h^l J* «kiil o^juxJI *|>».l ^ ■l a ? ... j ^.UJI i>i ,J n^-» 

JUL* . ujjikll JA4JI Jl J>->ll «>* ^^ ^ oU " ^^i 2 - 1 £* f^ U 
plo^X*^ g-^JI s l55l ^ S>~2-j SJu*. 5^ ^ A3 p^UJI o>5u Si-jil 6JU6 
^JJI, S^Liil g-UJI ^- J4A-JI ^^yJj ^ Uju^ ,^1. DBASE <J3U fJ&J 
^^......j a-. t l^l IL.^ A* Jj p oU£ll 11a ^i B^lil |JiiU ^hL^ 

J,MI *>»JI . *|>J ; L-^ vi 1 ;5 - JU :>Ui «>1>^J c — O- ^ L ^" 0>^ 
r Lki ^^ (^-si-All 9>»JI L.1 . DBASE U5U ^-Lh ^ ^^ ^Lh" ^ 
^i^^ O-JaJLI cr. JuJuJI ^3 r JAs-^. 1 jJ-- ^Ul aUJJI o^ oLyJ** 
i^-UJI ^UJI J-J aJWI f>»JI ^-jj • Vy ^*»«* ^i^ ^M oL ^ 

^l^i ^.xsxll «JU^I ^ji^ UL^j -oU ^-.UJI p^ 1 Ll • V li -* J, J ^L^ 1 
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. DBASE thle ^\ji p& pljj^l 

• u.*.uilaj| 



<JJt 



(jo^fl Jt»»wO .,3.1 
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£»JuoJI 



V 



\\ 



fb zy>jW J-JL 



l (Config.sys) ^U&JI oli-»|^ jjlo r - » 



( juLLjJI -ul!j3 SjI^I ,JSd ) _,Li*i a.*!^ : J^fiLl *^| 



^ "e-Wi tM " : v5>wi J-JJi 



SJla-Jj oULj SJlfrlS £« J^UlJI^ t - V 

H (Relational Databases) Ikjjil obLJI j*\y T - r 



\v 
« 



vr "^jj-Ji is^-aur : ajwi j-^1 



* 



T"l cic*JI ^jJo^e^* T - t 

TV Os*- {£<** Q* <^*»<lJ\ s^ X - X 

r^ ^uL*sJI obi**!! *p~J\ JufoaJI t - v 

t« ^hij^l **LX Jt^j-*) SoLj . o - t 

T* t£t>U«JLl" r * ; j >u JI ^ujJI T - T 

n Sojuou ^u^ oliL ^ J*bail V - X 

rx " r Lkdl ^^3 ol^" : tf yi J^jUl 

to (Problem Definition) 31SL&JI w-&jj*3 \ - i 

n ( Input/ Output JoU-^pJIj o>U.jlII v_i««jj r - i 

n obLJI sjl^IS ^j -"" r - i 

TV (Moduler Design) obLJL) 1>*JI j^JL^sJI — - i - £ 
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oo 

oV 

oA 

o\ 

o^ 

v 

V 

V 

n» 

*U 

*W 

>\X 

tr 

*\r 

*\r 

no 

nv 

•\\ 
i\ 

v* 
vr 
vr 






^*****^ 



->-»* 



,LU ^UL. *LsjI 



» Jl->Z m . U £. J^liSJl 



(6 



r 
r 
y 
r 



(ACCENT) j-J^II 1 

(INPUT) J** T 

(WAIT) j?H T 

SAY .. GET) jX\ I 
^[^zJIXSUI 

(IF) jaH\ iL-,1* jL>SJI iliJl 

(DO CASE) jaH\ &~\y. JjSi\ *UjI 

"(Debugging)" gj^-axJI JsL-j : o»atJI J-»AJI 

2L.JUL0 

(Memory) SjSlJJI jjfe^ 

(History) ^>bdl ^fa^ 

(SET TALK ON) '" ' "" ' 
(SET ECHO ON) 
(SET STEP ON) 

(SET DEBUG ON) j*i\ »i* 






(Data type mismatch) tlLijJI 

(Invalid function argument) *JL»JI 

(Unrecognized command verb) a}UJ\ 

(Variable not found) tlUjil 

(Record out of range) <JUJI 

(Too many files open) %IL*jJI 



\ 
T 












T 
I 

a 



A - 1 

A - *V 

A - "V 

A - "\ 

A - *\ 

h - >\ 




o 



o 







\ - •x 

r - n 

r - -\ 

i - -\ 

o - t 

■\ - *\ 

v - n 

a - t 



n.iuw { y£& ssU^sjx /Uaa : &XU\ *^l 



. - It «l . I r I . 



\ - v 

T - V 



^50^ crfjU*) »U-1 «UI 1" 
5-^il 0i>M> -^ ^ T " 



Y 

r 
r 

T 



V 
V 
V 
V 
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Vt pLkJI ^ g-^iJI o - r - v 

Vi oliLJI SJ^lS <_AL> pUjI-— r T - v 

Vt "jioll <£l& ,l£i| i - v 

W jjjSzil p i*a| - v 

W ^b^JI ,_«$> -\ - v 

AV "^tixJI c .b rf " : £u.UJ| J-JJI 

^ (Rep) g-b^JI 1 - r 

^ (Label) ^Jj\ r - <\ 






Hi 






T - IT 



\ ro r lkdl uuUi, t - \ x 

» r ° oUUI JyLw juju»j £ - i r 

»TV obLJI SJlpIS **«a3 6 - IT 

UV (Master File) ^jfLtill P [A\" \ - o - \r 

l*A (Sales File) c^lLjI ^_iL ,Ud t - a - \x 

»t\ i A Jji\ uiLl'^l aL *lij| r - o - \x 

* T * g^li^JI jkA*^k3 "\ - \X 

'To (PSEUDOCODE) *J^II ol^k^JI SjIsS" t - \r 

m g.bJjU Y - IT 
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l5 ^3jl Jill J^ g.brt (V^J 

JUoVI S-&L* p l&Jl » - 

(PSEUDOCODE) lJji\ ol^UJI ^Itf r - 

(Addnumbs.prg) "aUVI ~.b^ s^lsS" r - 

(Current Stock) Jul q^^UI ^£r t - 

(Reorder) i_JJJ| a*. j>d> £r r _ 

(Purchase Order) p |^aJ| ,JJ, t _ 

->i>^' E*^ fi**^ o - 

<JlaJI w-b^j jk**«aj n - 

g-b^JI ^isS" a - 



(PSEUDOCODE) 5JjVl 



E"^ Vt^ 3 



E 4 ^ 
7b«b^j 

\ 

x 
T 



T 

T 

r 



(NMenu.prg) SiliVl *j(j ^b>j 



E* 1 ^ 



(Newstock.prg) JL-M ^bU JUo. „_„ 
(PSEUDOCODE) JLJj^'^y^JI^^ 

(NewReps.prg) JUbtfl _^Ub ^'b^ 



(I III 1.IM.Q 



\ - \i 
- \l 
• \l 



\ - 

X - 
X - 
to 

10 

to 
I 

to 
to 



t 

X 

r 
t 

a 
-\ 
V 



U 



o - \t 



to 

to 

to 



- o 



\-\ 
u 
n 
n 
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rrr "obLJI ajjl»j gobj/ : jA» gUI J-»iJI 

YYo (Master. dbf) ^^J\ >-iUI <±*i<*»>3 gob^ t - tv 

yy«\ (PSEUDOCODE) lSji\ ol^Ja^JI s^lsS" i - t - w 

rrv " £»ls-*JI ^IsS" r - \ - \v 

YTY (SalEdit.prg) ol**-il lJL g*»«-«»3 gob* Y - W 

YTt (PSEUDOCODE) Uji\ oj^L&JI t - Y - IV 

YTo "e»l3-*JI *&£ Y - Y - W 

YIT (NewEd.prg) SiLVill uJL ^x^i g.b,j r - tY 

Yor xJtoall aLLo, ^Uaa : gjl^ll x^ajl 

Yoo ".LkJI |» : ..r»,t' : jAp j^ldl J-,sJUI 

YoV *l£iil Ub>*J 1 - 1A 

YoV obUI SJ*ti . ISljb JuJu*3 >^ Y - 1A 

YoA (Customer. dbf) J***JI obl^ v_iL < - Y - \A 

Yo^ (Charges. dbf) «J>*JI iSj*. otf* r - y - \a 

TV (Payments. dbf) aIjuJI UiL T - t - \a 

n\ V^L) 1 ^ 1 obLJI Jii*. T - \A 

Y-VY " g,b-JJ v*S[p i - U 

Yto "oj^kiJI ^UL" : j^Lp ^wlzil J-aill 

Y-vv (A/R) *5L*JI o^L** gib* ^i o| > L^JI ijL JjkA&J t - i\ 

Y*W (Title) lyuJI g*b* Y - t\ 

Y1\ »IL*-?I JSL.J gob* T - t\ 

n\ J*»«JI *lj ^ l 3*>jdl ^ob^ t - \\ 

YV* oj^JI uiL tl&jl o - n 

Yvr olj^l w_4L j«si -\ - n 

YVi (Parameters) isdLUI JU-al V - \\ 

YVfl (GetCUSt) oljIaiJI g.b^ JLJja A - n 

yv\ " Jjjl^oJIj ju-^ij v-^ 1 ^^i e* 1 ^" * co^ 1 J*^ 1 

YA1 V"^" WWI g*b* t - Y» 

YAi (NewCust.prg) \iLj| *iL>l ^b^ Y - Y. 

YAA (NewChrg.prg) ui^l ?^a. SiU>l g^b^ T - Y* 

Y\t (NewPay.prg) alJuJI tfp. SlLbl g.b^ t - x* 

x\t (AREdit.prg) JjJl_«iJI gob^ a - x* 

X\o (EdCust.prg) J***JI wjL JjJua \ - a - Y* 
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r\v (EdChrg.prg) ua^-JI U>L Jja*3 t - a - r* 

Y.\ (EdPay.prg) alJ^JI UiL JjJuo Y - o - y. 



Y«o "*>LJI obi** g-b^ jjjlSa" : Q-ij-i*]^ ^UJI J-~iJI 



T - 
i - 

o - 



Y»v (ARPrint.prg) U-«^jJI j-^LSjUI 5*3l3 «bjj 

Y^ (BillProc.prg) ol^k&Jn-aL ' Y 

YtY (Bills. prg) ?j^iJI ^I^AJI ^.b^ 

r\-\ (ARStat.prg) SJUJI jLaJ ^.b* 

Tiv (AgeSumm.prg) i^^\j t^zzd) jjj\3zi\ gobjj 

yyy (ARHist.prg) **>o,lxJI ^JjlSxJI 1 

TY\ " r Lk dJ ,£^£JI ^jljJ^JI" : oa^Lj es^l iH 1 

YY\ oLL^ ^ J-I&JI £.b*" : cOf-M* ^^1 J-^ 1 

TtN "olSLiJI ^b* g-by : ojl^J^ &\J J-*iil 

Y^o V-*-^ 1 J -* oJI * ili>>a S ^" ' OJL^ l J u" iLJI LaiJI 
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JjfiljBiJI 
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UAl- 



JliJI oU^JLJI jJii J* ijjLJI v USU J~JI J./J.S.L?.!! JjUj v 1 ^' IJub 
O^LiJI j»-kij « (Cadets) a— JLLJI qj-H^ oL*jJ** *Jki jlno Jjl^Ou.'XI 

j-a_j . (Accounts Receivable) P >L*JI oLL,m »• jiJLij( Inventory) 

Sj^sJI ^.IjJI ajIxS* ^ •JiiJUJ j^sJI (Techniques) J-SLujJI ^jl^-1 t5 JU -^j 

. l^Sil J^jdl <j=j-"j *JWI 8*U£JI oli 

^pJL*. SjJaJ- SjL> g-ob^j JS" q^A-j <iSJj ^W i/=LH4 (,5*^^ ^l^iij 

AjIjLp j oljl a la mi ~Ia A-? ...I p.|^j <j] L»S . ptrflj-JI p^jliUI i_A»jjbuU 

p^jlijl rt*--su ^j>~ *j£Jl\ JjIaJI Ji* >ljt>JLu.lj L^j JusUJI J!^jJ[j( DBase ) 
KJLL3 UJST ^.oljj SjLS" J* 5jJuJI <ujJ ^n US" « £*li>JI oLiLCol ^^^ LL> 

«-o[^ -LJLoLw ^jufc.j^« ^ SjLp (J^Ml «iJh»JI < *!>*-' ^L***- ,JI y^****j k-jLitSJ[j 
*i.*.)j ^[^^Jl ajLxS" <3jJJ »-^ «-o . Lj*s a^ji^ZmJII ^olj^llj (DBase) SlsU 

. LfcJuJiiJ <p^u>j > l$3p US ^ JLTp ^ill JjLojJI 

JjUj ^jJI (Cadets) ^ULkll q^la oL^JLw. »Uii £*b^ j-^iu ^LJI p>>JIj 
(Single Database) Sou-I^ obLo SJ^lS ** J-»l*£i ^1 g-I^JI ^ Lpjj 

Uo-jl j^ U5" . (User Friendly) »ju>ouJI sUaLljj I4LAJL3 J> >j\yi\ ^ 

. _^jjl5iJI .^o^ij JU-^I oLiiLi .>-.,!),■ o^ ^JLp 

ijuLa— Lol ^-^ ,jaJI (Inventory) ^Uil g-'Lijj ^^Lj ^JbUI ^>>Jlj 

. (Work Areas) *Ak»*« 

(Accounts Receivable) P >UJI oLl^ ^^h C->^ t*^' "-^^ 
(Related) aJL-j^-II cuLaJULI ^-« J-oLcdJ 'LoJiJx* oLjLxH »-«-wi>j (,5^-JI 

ci.UUJ^ Jsl&u-MJ (History Files) V^D^ 1 olJiJLl, j»lj^-b Uii^^j 

. aojJiaJI 
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X.JJL. 



3_-.J> SLdl J_5L*ujJI J>—*4 <JL* Jo+ »- «l *JI o ^b 

«b^ J « l*.l.x*&J p-W 1 J=J^l"c^! i^ 1 (Advanced Techniques) 

. -Op US' SaLi>I 

. oLjLJI fiu Jdfcl ^ J-oUcdl J» J^ SJlSJI s^aJI Jl v lsfll 

Jjl. (DBase) 5I3U «Lrt £«~ J* J^ .jlsiJI 1^* ^ ^ju^il g*W 
^.Juio^il j-^l I US . (FoxPro) , (FoxBase +) , (DBase IV) 
. lAj iM\ (DBase) «lsl» p*trf .J 5-Jl^uJI >.^l o"* 15* E*W *^ • ^ 
. (DBase) <bU ^1 <«-U ^Wl j J?l o* 1 ^ 1 J 1 C^ 1 

(Dot Prompt) iLaiJJI S^jjulua > - N 

,^.«,;j (DBase III+) g-la^ U ^JuUII ^lifll ^ C UW>!I j**- US 

U, fcJI Sj a. «j (Assistant) ^>LJI g-Li^ Lw* crs^J crib-*- ^s" 11 

. ^.yi *,lsS ^ ^Lfll >> ^LaJI s-*^ r IJAa-ib • < Dot Prompt) 

,ju ajl* (Esc) VJL *JI c ^ J* - ki - SaJI ^ Cr» !tksJI s -^ ^Y f^f A 
,.£+*> . (Assistant) jlpLJI ^ jj^j (DBase III+) g.^ J-a-j 
£2, ,1^1 ^ JJi iJ«l, . cibyi J«^ ^ »>4U XLUI «^A- fs» 
£, ^IsJI J/> -H P UJU jUS, (Config.DB) oL^^I ^ai. ^ J^-j 



STATUS ON 
COMMAND = ASSIST 



(Config.sys) ^UaAll oli^l^* J^ 1 ^ ^ ^ 

bLv U— -o vx-o ^l e-UJl ^ 1 , ^U p^UJl A^L~, US 
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X.J2. 



^^j ^oJI ^Ji\ J* tfj**** (Config.sys) ^LkJI oU-4>-. ^jJL. l£ 
-i>frk _ Ji! S ^.b^j ^f J*«^3 x^ £3>dl ^ jU « oliill q* j^ ia* >I.v_^jlu.1j 

"' : UbS\ <JL»J\ 

Too many files are open 

Jjuiouul^ (Config.sys) *LkJI oU-Jy. «»iL. JjJi*3 *xj Aih J* v 1;tU j 
^^JLJUjJI j_*i JXaJI 2-. oUK 2L»JL^ g-,1 — s^j j J (EDLIN) ^.b-H 
. t ^*JuJI j^j^Ja-JI *jU£ *£jj . (Non Document Format) 

FILES =20 
BUFFERS = 15 

o^JLLil (Buffers) s^lJJI ^iL, (Files) ^l&UI ^ yntej oLkJ^il 
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J^lo** 



(£ib\#JX -tffji »j^r datf yU. <w*^Fj* 






fkUcfcHI ■* » * ■ -**-~ i"'l)U^ * 
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^lUI JtaJtXi 
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rWdi* 



Jjl« (Single Database) JljJj oIsLj SjipU <^jU ^> jJoLirt ^Jl g-I^JI ^ 
£• J-l*n ^1 g-W q* J ' ^l-Will {£++» US' (Cadets) gJUaJT^yLa. «*bjj 
J-l*b ^1 ^ol^JI ^ jl ( (Relational Databases) ^Lj^ oUL. sju» 
. (Master/Transaction Databases) a£j*. oULj ftS ^j g.L »-, 



XU)A 



SiAs^lj CLiL^Iaj teOcli «jb jjjatalll \ - Y 

Jls-U. JUa qJ&I -tlJJJ . uitl I jj* £* Lab jjob^JI J*1*xj> « j^ oLiLj 8ji*13 
^ — ii ^ (Work Areas) J_ *p ^JoU-o sjl* Jju»aJ, oUL> sjlp ^ ^1 

. oJuilU ZjLibiej gobjJl ^ »£>odl J^m-i IJLAj . CJjJI 

. (Dot Prompt) *LsJI S^^JLo ^ JUJI JJ»*JI 2uU& 

CREATE Cadets 

. 03LL5I ujjikll inbLJI sjlpU k_flL jjn ( Cadets. dbf ) Udi\ q^j i*«*. 

J-£ j^-l JuJ^ I4JM2. q* [i* ^d\ Jj*>JI Ju^»J <*3l3 _^4J=a 5JLsJI ol» ^ 

• &Jl>.j q\ <j^L*JI »l3_^al jJlpj <ui>j*j <*j3j ij**" 

: Mi- ^IS" LJ Jtk&JI 5-^L. qa ^-^ill ^aL *l2j| ^Sl^j US' 

USE Cadets 

INDEX ON Name TO Name 

tf»£j\ JJL>JI J-» Jj^l J-S^JI O^J lAyj^ < (lfi i^ jp p L oUUI <*u^i j^ 

USE Cadets 

INDEX ON Name + Class TO Name 



\\ 
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rWi* 



: >&> ^1 Zib£ «ij ^u^iil t-ftL gls oljj UjlUj 
USE Cadets INDEX Name 



: ,^fill£ Aihj obLJI SjlpU t^L ~£i j^*. jj q^SLj Ljii* &a».j ^.jgill l_«L «si 
SET INDEX TO Name 



(Relational Databases) St-u^I^U <n«taLJI iAcIjI Y - Y 

. J*iiiJI <p_>*» Sj>Lj3 Jl suL»"}IIj <o,v,rH? w ,ll £jj>wJI ^-Lil JJto Jl 
£_£Lo_! < (AR.dbf) 9>L«_«JI oLL*»J obL^ SjlpIS <__aJLo |^«.»*j jljl» Mjui 

: <-#(£ 4*M»-aJ 

Structure for database :C: AR.dbf 

Dec 



Field 


Field Name 


Type 


Widt 


1 


BILL DATE 


Date 


8 


2 


AMOUNT 


Numeric 


9 


3 


VENDOR 


Character 


20 


4 


ADDRESS 


Character 


20 



^(Vendors) £>«-51j J La ^^ *\3 i*yo. « ljJJLJ L*-. L***»3 ^i«j ll*j 
^jiSUI *")!->a *L-*J j[,X3 *jl» 3JUJI oJub ^j . Aikiu. f*jj\jii jt?\jti\ oLlq 

jj» J^il vJULil < ^JLaAJL« £t£aL« Jl t-iiil f *-^ ll jA J-Jaial j*_w<a£jl £^Jj 

^ o!> JL - J b p-**' J^° Ot^MJ 3L.n.A»aJ| oliLJI o^* 3 f (ARl.dbf) e^JUll 



IT 
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e-Wcb 1 ' 



. Field 

1 
2 
3 



. (AR2.dbf) jj UtL 
: jftg (AR1) ^_iUI vLijI ^ &J 
Structure for database :C: ARl.dbf 
Field Name Type Width Dec 



BILL_DATE 
AMOUNT 
VEND CODE 



Date 

Numeric 

Character 



8 
9 
5 



Field 

1 
2 
3 



Field name 

VEND_CODE 

VENDOR 

ADDRESS 



^fltf (AR2.dbf) Uil\ ,lfij| c ^ i L£ 
Type Width Dec 



Character 
Character 
Character 



5 

20 

20 



^Ul JJbJI jAj . (Vend_Code) JjU y, JJ £l\ ju^JI Js*J| I J^Mjj 

(Vend^odeJJ^jLiJI Ja*JI J* Uajl*1 JL«^3 ^ ^-JLllI ^Ju* .L^ 

USE AR2 

INDEX ON Vend_Code TO Vendor 

pLi-sl ^ . (Work Area) Sik^ J»* ULjl, ^j ,_iL JS" *& ^ ^ 
O-i ju-^Sj JJ*j . (SET RELATION TO) ^Ji\ Jjui^L ^^SUl ^L "usUI 

": Ubdf jjkJI 



IT 
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e-Wi d^' 



SELECT 1 

USE AR1 

SELECT 2 

USE AR2 INDEX Vendor 

SELECT 1 

SET RELATION TO Vend_Code INTO AR2 

■j-ajJI »J> >>lw.j (AR2) * aJLLI J^H >■ qj> Ji»- ^ {J°j* ^Lh LoAIpj 

f3j J~*JI *Ikd (Alias) vJ-il^l ^i\ JjUj La (B) 1 ^ . (B ->) 

*>LuJI oLL**- »Lki ^-j — & jop J-* — woidL ^Ui ^j & p^uj < (2) 

. (Accounts Receivable) 



4^^y=J\ OUI-^ C^OH -^ f ^ Y ~ * 

oLt&L (Inventory) qjL»UI jJai £« Sal* »a»ouo g*l>JI ^ £>J! Iaa 
oLiLjj >_i_L JLla qjSj* -«- : *- < (Banks) J^j — JU (Libraries) 
*ij> ." Jj^-9 jl SsLbl aS>- ji" obLo Jp (iij^i (Master File) lS ^ J 
. (Transaction) *£>*JI oliL ^ (Master) ^--i^JI < — a-U.1 obLo ^^>a 

. ( \ - x ) J£sJI &> £~bj* j*> IS (»LkJI J^-*-* qj£& 

OXr^U &■ JLJUJI obLJI J* ,j;>i*j %£* * Uudl lJub ^ ^-"bJI <— ti-LI^ 
Ju^jj jl ui^J *£>»• j£ oLjLj Jp J--«>vj L£. (On hand stock) J*A)I 



oUUI Jaj, ^ j»A3o^«j (Unique) ijJi^> Ji*. >*>j . (Part_No) ^>>JI 

oLiJL. ^ t5 *— *J>JI JUllI i*oJi*J ^J (UPDATE) jJi\ >Jl^X-wj . 4-£>WI 

. (Part_No) *>>JI jxSj Jap- J* olilil ***** *j! .-*>u JJi xJL^j • ^Lh^ 1 



u 
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e-W £b>l 



Ilnvento ry. dbf | 



Part Number 
Part name 
Amount in stock 
Price 

Reorder point 
Amount on order 
Due date 



T 



; K$tt93£0ni 1 



Part number 
Part name 
Quantity sold 
Selling price 
To whome sold 
Date sold 




Part number 
Quantity received 
Purchase price 
Vendor name 
Date received 



( i - r ) jlai 
v^j (Sales) oU-JI Ul> ^ (Master) ts ^J\ <-illl <ioJw*sJ XjUs 

USE Inventory 

INDEX ON Part_No TO Master 

USE Sales 

INDEX ON Part_No TO Sales 

jJi\ j»Iju>^wL (Work Area) SAUiv* J»p ULi* ^ ud* JS" ^xi ^ -J 
isiLi*JI c_&L ^ obLJI JSi ^ (UPDATE) ^1 >Ju>^~-j *J < (SELECT) 

SELECT 2 

USE Sales INDEX Sales 

SELECT 1 

USE Inventory INDEX Master 

UPDATE ON Part_No FROM Sales REPLACE On_Hand WITH ; 

On_Hand - B -> Qty 



to 
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rWd** 



^i U.J-LUI SJ^UJI UJi, g.j^J| .LLk, u^ I v^joj . ( ; ) U,jSil\ sLliJI 
^° ^ l*^ <->^ l^» J ^t* o*^ M^ ^ ULi. aj^ ^u. aJUJI ju6 
cj^-j I^IL, ^ L.u* ^Lrt jU^Jj • asjIsS' ^UJI >«JI J| JLJI ^^Jl 
oh»JI Iaa ^l . jpj| |l» 2uLs^ J-3 SiLJI a^a Jp (Space) *JU SsL- 

,>* ( Sales. dbf) vr.U^I ^jJL ^ (Master. dbf) l5 ~~J > ll UdL\ ^oJu>j 
oLy^JI u ^ (On_Hand) U*Sd\ ^Sl\ JJU ^Ly^o Jj^aJ l5 L L) J 9 
I^Ip J^x*JI ^ ^Ij (B -> Qty) l^ (O ^sJI ULuJI V s " L^ l^A* 

. ( T ) jxSj JoJI SIkLo ^ oLjJI ^iL ^ 

^-iij (Purchases) oL^iJI ^.iL c ^ ^Jodl JUL* ,[^.-1 ^.Cjj 
UlL c ^ (b -> Qty) sl-jiiil L«£JI *iLbl ^ft ju*Jjl jjUJJj . Uj^JJI 
: ^fll* J)ij . U*JUI JUSII J| ( r ) pi, j^JI <ikLo ^ oLp^il 

UPDATE ON Part_No FROM Purchase REPLACE On_Hand WITH ; 
On_Hand + B -> Qty 

^yi r UijJI |j^ JL^UJI p.j^Jl oL^I JULUI Jjl^JI JS" ^ pi* u^j 

. (Inventory) ^Uil ^.li^j S-jjJu ^oLiJI pj^JI 

iZjIUa-MII (J^Xa* aIo^JLuuI £ - Y 

£-i>jlj . oLkaOUl JJi* j»Ij^s^I Jl ^ls»j ^1 oliLJI jlpIjS u i«j JL* 
^S^l^-j k_iLo pLul Mi* ol^ a*». . (Library) <*s£ll ol% 8Ju*l3 ^Llll Ja« 

^ — a_L_o-JI J-SLja jVi*-=J c^Ujj • (Abstract) (ja^JUI.j « (Topics) ol*j-iyII 
>L^- oUil l5 *^ JjMI ^jjJJI ^i . ^^xibjL SJUJI 6^A ^i (Structure) 

: ^tf o <^UJI JjiJI Jij^ (Libl.dbf) 



n 
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e-WtU* 




1 
2 

3 

4 
5 
6 



AUTHOR 

TITLE 

PUB 

DATE 

TOPICS 

ABSTRACT 



Character 

Character 

Character 

Date 

Character 

Character 



20 
20 
20 

60 
254 



( r - r ) J1& 

J}j>j . (Abstract) ue ^Ui U J *.(T(jt) u a*- a AJ ft <>] *JL>J| 6Jub ^ Ja*Sb, 
jwj oH^' '^J * t^-J^' J^' U 5 '-**' iT" 8 ^' JL *^' J*** * Juu " '^* o^ 

. j^Ith 3*4jl ^ >\&£)l SdjJUu* jjV\ki* <LjUl£j 

^ Up. ( *••♦ ) ^ 3LUSL ^*j JyfcJI ^- £jj| I^a, . (memo field) 

g-oLs^ gr° f ju * ,s ^' j :» .P-T (Word Processor) oLJfT gJL*« 

. (DBase III+) 

olk^OUl J2* pljAtJ jl^ (Lib2.dbf) olll JSLa ^jj JlxJI J&Jlj 

. (memo field) 



W 
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E-U*£^I 







ft"ft*»*IvlvKv?ft*X 


| Structure for database Lib2.dbf }jjjjjjjjjj^ 


IH1BI 


illllllllillllll 


liilll 




i 


AUTHOR 


Character 


20 




2 


TILTE 


Character 


20 




3 


PUB 


Character 


20 




4 


DATE 


Date 


6 




5 


TOPICS 


Character 


60 




6 


ABSTRACT 


Memo 


10 





( r - r ) J£& 



^lk*>LJI JJL* jb^J UT ( \- ) j^SjJI ija^H g-bjJI ] L* Js^Mjj, 
M lJubj . J,*. ( i... ) ^ ^£^4 Li*i £*-; ol j^j (Abstract) 
(Auxiliary) wXpL~<, obLa sj^U ^_oL. ^ Li*S ^^ Jjbj l-i-* ^ ._»x£j L> 
^111 ja Jals JJLJI II* O tlo ^ . (.dbf) ^j (.dbt) aal^l ^ 

. J^l obLJI sj^IS ud* ^ 4jlj>>j ^ 

o jlI . jf, . (Ctrl-PgDn) ^te* A* Jxi-iJL, ^UsuOUl JjU- Jp ^>ll ^»j 

. . '■* i^ ii i-.. _i..i . ii. .M «. *l_ j*.I*II i. 2*1*11 _...„ .r, jJUJI 



pj .JJL*JI Iaa obLu JL*^ SykL* *L&LiJI ^^j 5-i.LiJI ^ ^ 
(Ctrl-w) ^lii- jl (Ctrl-PgUp) ^Ixi. J* .Li-iJI ^ ot&l ^ ^Up^l 
3^ JLi^l S-&LJ. Jl &rjj JS*JI Iaa ol% ^s^sl (Ctrl-end) ^Ixi- jl 

* V^ 

^^^ *.x_p J^Jj^JI ^ULj ^^p ,y (LIST)^I jJj^zJ j-u JL*.^ 
^^ il^ Ujul* ^ ". (memo) US' ^t ^j ^Lk^Xll JJU. oLy^w, 
: Sbt-o ^tf (LIST)^oMI £. JJbJI j**-l JuJwO ^ JJUJI II* oLjX>wo 

LIST OFF Author, Title, Pub, Date, Abstract 



U 
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e^t!^ 



Garton J. T. Decision Support Systems Byte Magazine 
03/01/85 

This article discusses automated Decissions , 
Support Systems used in modern business Mini 
and Microcomputer systems. It includes a 
review and comparison of several currently 
available systems , both as support , 
knowledge Maker , Mind games and Decisive. 

Franklin B.W. Automated MBO MBO Monthly 
05/01/85 

Describes several automated systems that 
support Management by objectives (MBO) . The 
basic theory of MBO is discussed, the several 
MBO systems are reviewed. 



( l - T ) J£& 



L>\j£ j^Sj olkOUl JJisJ ( fc. )J*_>J\ JL.Ji»d >Lui . (SET MEMOWIDTH) 

i JlxJI jJi\ 

SET MEMOWIDTH TO 40 

qCj ^>Ji Uj^ UjLJI oUia^UI ^^Ji jbjjJ MJUi . (Command' Pile) 



!|tl|lVS|li|ll|t9|l!|tV9|l!|l9i|lf!|(i|{i|(^!|ti|(]|{!|t ^Til hT*flY*V 'Dl^Cf 

* - - Sample Program to print database with memo field 
USE Lib2 
60 TOP 



\\ 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



E-W dj>' 



DO WHILE .NOT. EOF() 

? "AUTHOR :", Author 

? "Title :", Title 

? "Publisher :", Pub 

? "Date :", Date 

? "Keywords : " , Topics 
? 

? Abstract 

■? 

7 

SKIP 
ENDDO (while not eof) 

. ( o - r ) JSLaJI q* S»j>\jI\ oliLJI ^Jaj ^oli^JI I JJ. X^» JO*j 

: Jlill _^*MI 
LIST FOR "Computer" $ Abstract 

olk-OUl J-l*. ^ (Computer) <-j£ Jp ^^^j ^sJI v^>U-JI ^ &*J1 
: tJlsJI ^L.jJI jj^ Jsl*.Mj SJUJI «jui> ^ . (Abstract) 

Operation with memo field invalid 

LS (Keywords) ^^ li^JU jA J2>- ^Ij^x*-I ^51^ U&&1I al* p5Uj 
juo ^ ^dl (Topics") ^\ji\ ^jb ^u ^>j j^j a*- « ^Urjliil ^i 

: JhJI ^1 ajIsS" jo* %us 
LIST FOR "Computer" $ Keywords 

^i (Computer) 4_J£ J* &*»3 ^\ c^U~J\ &**■ obLu joj* ^ 
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e-Widpi 



Record no. 

Author 

Title 

Publisher 

Date 

Key words 



1 

Garton , J , 

Decission Support Systems 

Byte Magazine 

03/01/89 

Support, knowledge Maker , Mind games 



This article discusses automated Decission 
Support sytems used in modern business. 
Mini and micro 



Reoord no. 

Author 

Title 

Publisher 

Date 

Key words 



Franklin B. w. 

Automated MBO 

MBO Monthly 

05/01/89 

Management , MBO , Microcomputer 



Describes several automated systems 



( o - r ) J£a, 



Yt 
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CjL> — " ***t JI 



l^lji^iu.1 q^j ^xJI (Techniques) *Ak»JI JsL-^JI J* j^ J-^iJI Ijut 
_P>3 ^1 oUUJf *Jk1 ^oj . s^" V^j^ J*a a sJI **>— 5aL>I g-»L«JI ^LsS" ^i 

SJl»(J \JiL> JMi. £*»«• jl** ^ A»*JI ^LJU* j^eb^JI 3u&3 ^Pjau ^9 Sj**£ ^j-^ 

JL*li£ pit f, lil 8^*5JI oUiil ^ LLl j^Ai-u jj"jU5 1 a** ."' oliLJI 
^i l**.^ f^V" 15^' **ls*^' JJL-jJI plJAa«»l jo* U . ^JLJI s^Jlj g*|Jjl 
ciJL* ^*- _^ U^4 jlp Uj^ SdjJiM jiGa Jl kiotJI ^03 J-<»j «**i t-tUi ljub 
u**jp ^ (Index) jj-^iil JjiAs-J >* JJL«jJI &1a J^lj . obLJI sjl»13 

• t-il LI C*A»mi 

>Ijl_»jLuiI jjk obLJI ^ ii**«JI %»^m> J* ^yuj^ill _>*ibJ Jit* f^ylj U ?iP^ 

£U-£-3 t±^». i Ljj&s *,«^JI <j«-fc >* (DBase) ?JjLp ^j^ ^ ,i,Ju> ^ *-°j 
^* l «Jj^l SJi^JUl . obLJI Sjlp.13 <_aL j-i (^*«<» ^L^ j* >±*.>lJLI ^LtiL^t jILa 

^JL» «ll) (Index) ^^i i^L> »Lsul ^ JLlLt/l UjjJJI^ . <ip t^^JI i_^Ikll 
^LJI ,^ ii*»wl[j < *-u"Sll Jl- < <i» a»«JI ujjLLII ^LJI Jo (^y^j ^5^JI JSs>JI 
Ijia ^Jl ^.Uill U -J Jjllil J^J\ Sj ±>±>4j> ."'^-JiiJI II* J5U ^LUI 

. J^JI 

j , , ^1 »IjlA1m»L; (j-^ill pLlsl *jo (DBase) UsU g ol^ tf ij 

SJupU *»aJLc ^Si JJL» -u**)l 5uLsSj ^u^iJI ll» J-^iJ f^» Ui" . (INDEX ON) 

USE Cadets INDEX Name 

LwJI ^ e**JI ,-S (SEEK) ^Ml jl (FIND) ^1 .IJuiAu.1 ^ U^ 

. urfjLUI 



ro 
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yj— Jl ii>*^JI 



«__oJLo »i sUlj-o t-*>«j « i>^" J- i ? wv ' ^^t* J^J 1 ^* 3 y cj5l>w*» £•«*■« jl S*^-*-*- 
JU-J Jl ,3^ ^-j^Ll UiL ^ 1 .&*•. « oLUJI 6la ^Lrt-I Jj y ,j*>«UI 

■'~*-^- *'» ^s-jlo T - ■ T 

Jli* li o>L>~JI Mjp ,y o--^ 1 pl.x*x*»l La^Sjj ^1 ifrj-JI Jl SiLi'illj 
<p^«. cdjUtjj (DBase) UjU ^I^.Ujijj o5U«JI q-p .s^sJJ Uki** l3j_U 
^ ,**»JI Sp^ fcjlloj aLih^JlS&^JI '^ ^fey* mII o-J ^LIJJ. Ui>U- ^ <^M 
<*^»j Be US' ^ Ju>3 ^1 V" 1 ^ 1 ^i^ 1 g*W' JaJa»v jl^j t^ ^j>t> j!£ 

cJJl ^ ^5^>u (Test.dbf) <u*J oblu sjipLs ULU JLa a ] j^Jb &J 
. Mjl* (Mohamed) ^1 Jp ,^>J o>U-. ijJ^ JUa 1 ,ji>4ij. J^- 

4_JjIJUj pJ3 4JLJI aJLA ^ . 4-&LJI J* cj>L>«JI al* obLu (jJs^ ^Lkj 
ij_A JU^ (FOR) US' £- (LIST)^I plJiA&J j^Lj J^l sgl^JUI ^ 

: JH> r^j 3 UUI j>ia-*JLj • <£*»uJI 

CLEAR 

USE Test INDEX Name 

ACCEPT "List what name ? " TO Search 

LIST FOR Name = Search 

: JbJI J|yJI ^Ljj ^UJI ^ ^ g.b^JI II* X^ ^J 
List what name ? 

•s-b^JI S^IJJI ^joj, ^ aju>>j ^lj 5(4- (Mohamed) ^1 JLtal .upj 
cw^!, . ^1 lit Jo ysS^ ^ z ^ ljJ] o>U-JI obL* _^j i (Search) 

'Li TT Jjy. "-ilia ",m US' . (Floppy Disks) fcjll ^L^ 1 pl^*s-»l 

. (Hard Disk) uJLJI (joJUl ^lAi^il 



T"\ 
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fjtj—JI i S - *; ! 



jX\ Jl (FIND) jJt\ JjLiiJ 0* <*UJI 6JUfc ,^1 juiisi JLiWI ^JyjJJj^ 

^Ia*ou.I pJ (Mohamed) ^i\ J* jjj 2 ** J^?— J*! jh ^^ ^ (SEEK) 
: jU-> pbjS aJUI jjj-L-JJj . o>U«JI Jfy jfa^J (WHILE) 

CLEAR 

USE Test INDEX Name 

ACCEPT "List what name? " TO Search 

SEEK Search 

LIST WHILE Name = Search 

5L ~ 15 3 o!P t^ 1 tf* ■* UA C^ ( F1 °PPy Disks) Jb.,11 ^l^ll JjljjU 

. (Hard Disk) vJLJI ^^sJI JJL&&J 




^ (LIST) ^1 p|jL*ju,g Ijuj yUJI ft AA ^| . ^J fru&^pjj (Date) 

: jm (FOR) US' 

USE Test 

CLEAR 

STORE » »» TO Start , Finish 

@ 10,2 SAY "Enter start date" GET Start; 

PICT "99/99/99" 
§ 12,2 SAY "Enter ending date" GET Finish; 

PICT "99/99/99" 
READ 

STORE CTOD (Start) TO Start 
STORE CTOD (Finish) TO Finish 
LIST FOR Date >= start .AND. Date <= Finish 



TV 
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£4r-H. a* > i H 



: UbJI -l> kJI *<b£ jCLj j^l WjjJJI pl-kAaJ <Ai*j 



USE Test INDEX Dates 

CLEAR 

STORE " " TO Start , Finish 

@ 10 , 2 SAY "Enter start date"; 

GET Start PICT "99/99/99" 
@ 12,2 SAY "Enter ending date"; 

GET Finish PICT "99/99/99" 
READ 

STORE CTOD( Start) TO Start 
STORE CTOD (Finish) TO Finish 
SEEK Start 
LIST WHILE Date <= Finish 



a 



J aI~. . (Start) SJjlJI fcu b <> ^ Sshii ^ Jl «^ ^ A ** & -tf 
Tju3 ^1 c^U-JI ^ ~, a*JI U , (Dates) ^lill JJU J* o-*** JW 

J*«J| Ju>o ,J lil (SEEK) ^1 1 *** • «i*i*J'cr* »tff if ^^f 

ZJ$7 H . cSL, J ^1 g-b^JI U (Start) ^ ^ J* ^ 

. (End of File) UJLUI _£r Jl JJ&l, (Record Pointer) o>Lj«JI 

J*lis**j o-ij-^JI o* ^ ^>1 *4> f'^ 1 iJl * JI »^ 15 s JW ■fUUj 



USE Test INDEX Dates 

CLEAR 

STORE " " TO Start , Finish 

@ io f 2 SAY "Enter start date"; 

GET Start PICT "99/99/99" 
@ 12,2 SAY "Enter ending date"; 

GET Finish PICT "99/99/99" 
READ 
STORE CTOD (Start) TO Start 
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£{>-J Am t t 



STORE CTOD (Finish) TO Finish 
SEEK Start 
IF FOUND () 

LIST WHILE Date <= Finish 
ELSE 

LIST FOR Date >= Satart .AND. Date <= Finish 
ENDIF(not found) 

: 5U- Jfltf jlii, (SET FILTER TO) 

SET FILTER TO DATE >= Start .AND. DATE <= Finish 
LIST 



t>\Aj . (AVERAGE) « (SUM) , (COUNT) JJL. S^L^JI jAf& ,^*j JLa 
< 2^j > L-mJI S.jIiS' ^lC^ (Mahmoud) *^i\ J* jl* 2 ** 3 is 1 " ^di^^JI jjlp uUSj 



USE Test 

COUNT FOR Name = "Mahmoud" 

^j « ^iLX\ i^pJ\ Jl J^jii SLib ( to ) Jl^ ^x«J UjjJJI aJubj 

: SJWI ^[^1 fcU& Ijl> !#£ l*.^ cJjJI lJUh JJS3 c> SUj 5 

USE Test INDEX Name 

FIND Mahmoud 

COUNT WHILE Name = "Mahmoud" 

. 5JL»-lj 2L3b Jlj*. ^ uj^l' V 13 f^ *"»JI 6JL* ^ 

. (AVERAGE) j^j, (SUM) ^1 ^ I^Ijl8*X*J a&o ttj^UI oJu» j-Jbj 
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~xu 



(Sill 4cLL> 4c^uj SijLij A ~~ V 



USE Test INDEX Name 

REPORT FORM Repl FOR Name ="Mahmoud" 

j»L-JU • «aUJ > ^LH^I iA>» is* V b T * JU— O^- 3 :u i> JI ftl *J 

USE Test INDEX Name 

FIND Mahmoud 

REPORT FORM Repl WHILE Name ■ "Mahmoud" 

^iL^j < (Temporary) c3>o UiL ^ i»M»«JI ^ X»j«m £«J &[>j Uoip 

USE Test INDEX Name 

COPY TO Temp FOR Name = "Mahmoud" 

. (Hard Disk) s-JL^JI ^Jft J* teb T* J,\j- j\\$ , u i U*JI 6**j 

USE Test INDEX Name 

FIND Mahmoud 

COPY TO Temp WHILE Name = "Mahmoud" 
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C 2 * g.:^ 7 -""-^ ^j « o>U«JI ^ jap ,^1 pLlil g-UJI tiln-^l j^ja (DBase) 

. oSjJI ^vii ^ ^^1 oUL ^« ^ jjtST 

JJL* Jp p Lj ^^3 p LsjI ^ (Cadets) UkJI oytA «b* ^ >Lui 

: ^IT (Name) ^| 

USE Cadets 

INDEX ON Name TO Name 

: JiK (Class) %u ?3>JI ^ J* p Lu ^ ,l£j| ^ L£ 

USE Cadets 

INDEX ON CLass TO Class 

USE Cadets INDEX Name , Class 

C/- 4 j-«' l$' flJ-^-l ^-ui . (Primary) ^--jjjl ^-h^I j^' "(Name) 
u^ny g-li^JI o u < (REPORT) , (LIST) JjL c^JI ^ ' jlUxJI j-,1^1 
^ o>U*JI ^ obLo o_,La lil^ . ^-^Jl ^-^Ul ^w* <^ o5U«JI 
j-^l 1 US' . 1^, ^liil ^^aJI j, ,u< l^op ^ l5 ^J| ^^^JUI Ja^ 

. Jals l5 «-J > JI (j-^iJI J>U. i&>uj (FIND) , (SEEK) 
: ^ JUI >*J| <jUS" ^ ^-^iJI oliL ^jj Jjj^a JujI \h\j 
USE Cadets INDEX Class , Name 



X\ 
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£4>*JI A*JI 



PjJI (j-j-giJI j*> (Class. ndx) J^!l tJill £~^j <JLsJI aJu* ^1 
^J> ~-oJ JULjj U*jJu>J jxIj ^J JU-y&ll j-J. ,j-j-$aJI oUL. Lol . 2L>j_XJil 

BaLpI ^ jLli jCjLJ, . obLJI sjl*U t_aJLo ^ o>U«JJ JLJI ^.jJU SJjlk* 

: ^K" ^Uij (REINDEX) jJi\ plJii^J p3 UjlSjl 



USE Cadets INDEX Name , Class 
REINDEX 



rr 
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r^--** Cll^lui 



E 2 ^ 15=* L^^D^ 8^1 *^» j-*» p* • s^Sj a>fW plkdl p^^a Ijuj soU 
. ( S IajI w 1 ^ ) ^jj JL-, ^t g.bjJI JaLk. Ijuj saUj . jllfll -Ikdl 
h***- J* -^ *"** J-i ^ < j^^ 1 i5» i*^ J!>«JI ll» J* vt*^ tjj^j 

^\ S-jLjjJI ^ J^aj oljlasJI 6AA £>*»*. ^ . ( SjJa*JI oX* Jt«J i_*Aal ^1 ) 

. r LkJJ ^LjJI p2^\ 
: ^fc* l^^fc j^ **U <iL^ ^..^|| ^L>iy 

. oU-^^iJIj o>L»-jl1I dyflj] -r 

. (Database Structure) obLJI sji*13 JSLa *1~~3 - T 

UJ&j Lj^ J^ ^yj, (Modules) t^ ^[^ J| ^b^JI ^Lja -i 

. <L*^ill »«I>JI 4jI*£ - a 

. gtflU^JI —A*v«aJj jl***-l "^ 

. UUI llA ^ 0[>k*JI 6AA ^ JjjLi. j£ ^ ^Lj Jjyy 

(Problem Definition) «K.*I I t i^ .-; > _ £ 

r LJI 0A4JI J I4L. v ^ikll SKiil juj^»j ^b >LkJI ^^3 ^ s^Li. Jjl 

oLyJ*, pUu ) Ja. 4_uJi5 pLbJI *uJ ^ Ijlj jujt^ill |jub ^ s^ki- J,lj 
^L^ J* J^^IJI ^ .Uu ,ld v JLll J ^jo \jjtj . ( UUI o^JLi, 
:j »LIaJ . , *JI .1... I.u -Ik ..<. ».i_ . .mi iT» . <-i •? 11 ii TT 



<LUJI (>• **>*?*« jl q*m i_JLL obLj Sio^i* ^jjli *pU» -t 

. yJLL ^1 obLu JjJl«j - T 

• i_JUa ,^1 obLo Kubt -i 



To 
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>Uul - A i.nt aijLi. 



(Input/Output) C2ilaoai.(j obU-dll « itny jfl Y - 1 

iu^LI 6Ju» ^i f^ij . (Output) <jl. U* J-~*i 1 v^i Ly (Input) 
jup (Cadets)' UUI ojiA oU>-. p Uu J %ui . £ l>^ jl J^ 1 ***** 

. ^UJI ^ Ji\ ^L* J^JI 

fJ-w O^b p-"* J* dL* 5 - 3 (Reports) UUI oL_3Lj j^Ub - t 
. . \jiMi\j ^1 Jp esp.J (Labels) UUJE ; . ,** . . ^Ub - r 



Name 

Nationality 
Address 
Phone number 



t_ot 



.-.111 ..11 SiAclS /% uir>" Y — z. 



^gy^J "jdl (Character) UpJI cU 5 ^ 1 CkHj (Numeric) JLoaJI J>JL>JI 
1*.|4*&J *s£ .Jdl alJ**l .y» LU J^a-JI j£jg aj-ill o 1 •*** •• ^ J* 

. lJZ jLj, ^ js^ *«fcj ps, oA^' Hi> *•» ^^ ^^ ^ 

ULlil IJJ» ^i JuA*3 v*oj • ^j& ^^ pLiil ^ ^-^ 6 ** IS* ' r ^ i> 
»Xj UUI a»iA oUJL. P UU .J *U» . Up p Uj d^JI c-yl^ 1 J 2 ^ 1 ^r—* 

USE Cadets 

INDEX ON Name TO Name 



r\ 



y.i.i'. i.. '.r ' Adi.^.Li.iuai.^i.Li.'ii.ii .i .iiM.r 'i.'. in. i.th 



ftUktN »«^«T CNja*- 



(Modular Design) ^.ULaJlJ I3=*JLI - .^.^Tlf 1-1 

g^LH ^j-" * oa,. iU .«.J ^-A >Us>jJI ■ x . wa . ' d AJUjis J^*>i1 qU < f-LWill (J^u US' 

. 5a^>w« -UJjj jftpo Lgju J£ (Modules) S,,**^ 

^-w-jJjJI jj-oLi^JI ajJl»j ^i (Hierarchical) ^^1 J£iJI px^^ 
i (Cadets) *JJJI QyLi. oLjLu. *U=u ^ >Uui . \u $j&Jjbdl w^ill rwl^lj 

" -Ml oljLxi-l ^ jUi-l j^ j^ ^Jl ^ Ju*>JI jj*UJ|J . (Main menu)" 

: Ubdl *JM J»j*-i $** tf»*Sjl e-k»-Jb 






Cadets Information System 

1 - Add new names and addresses 

2 - Print reports 

3 - Make changes 

4 - Delete names and addresses 

5 - Exit 

Enter choice: 



: galijJJ ,^$11 V-S^' J~a>J JWf J&£j[> 



TV 
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ItlJI ,,., n 1 cJjki. 



Jii-CaaetsipraE::::::!:::!::!::::::: 

£«yiijyinij!nmKittni:ii:i::i:::j 




lllll 11 





TA 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



©•Wr 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



(J*!^ 



^JLsl » g .1^ jl (DBase III+) g— ib^ J>U» ^ g-L^JI *jb£ ^ 

^sJI (Command Files) ^l^ll ^ba-bo ob£ ,^L q* ^j*-*i\( DBase ) 
. ^j\il\ JLl\ J I ...Tig UJLJLa Vj iUI j-^l J* tjL^ 3 - 3 

1 cU-j* . j*\Ji\ oLUL. ob£ ^4 (MODIFY COMMAND) ^1 f.A.VU.jj, 
B-bj^i o^LsJI (Text Editor) ^L£JI g»~ail Jt&As Jl ^yj ^>M\ I J>-a 
L^ . Lj^wj^wiSj j-oj^MI oLiL ^ba -UL^L q* »Sj ^Ul (DBase III+) 

. j*\Ji\ oUL. J-JLi3 ^ (DO) ^1 »Ju»^L«*-j 

. <u ^UJI ^LiJI gSK^II (DBase III+) £»b>J D U ^Li^ll j*** US' 
>Uj . (MODIFY COMMAND) ^1 Jjj-U ^ -dJLiJ *£j KS L^i\ g^JI l-l*> 

: ^UJI ^1 ik£ fj (Test) Udil * l£j"5l 

MODIFY COMMAND Test 

. b$J>U. ^I^MI obSJ SJU- 2L&L& .-^Jfcj « JbV^I ^LX*- J* JaJLiJI JiA*, 

^ .-SL^JI LftSjjJ* ^ *£» ^1 gs-ibill gijJ (Help) Sjl*L«-o ajU ^^JLaJj 

. ( \ - a ) 
j-olj^ll ^bAJL ^LjU^ J* ^jj-sil (Test) ^ilil ^ otL*-^ ^bS" o^L? 

CLEAR 

? "Good morning" 

_j tU:. ^Jl^. Ii[> . jJa.*- J_£ obS" Ju^ JU-a^l j-bie Jjp JL.A..KJI jk£j_j 
(jjj_>JI j—ll Jj*ojJI ^J J^J^I ^ B^»-jil g*J>walJI £*3bl* Jjl>i£miI f*£j ^jLxSUI 

ob—sST jl ( A End) SjI z£ jjjJo ^ . aiir j>j>>J *2j j^5 . UbA*3 u-jjll-il.1 

. <L*JI s^jl. Jl s-ayjjj (Test) v-iJUl qj>^ J' lS^ ,Jl *j • (* w ) 



l\ 
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(J^^tf 



4&J2>j}\ ^-Uill 



U^Ail SjIiSJI jl (Ins) ttU?l *JU Jl JipoJI 
^jjl ^ISL. JU- ^k«i <sLsl 

j^J^II i*)lS>» jja+a TU»Ji 

1^jl» i*^kJI <jli ^1 S*iliJI 5J53I K* juJl>j 

ja-\ xwU _/*•! Jlu j^9 ( V *o i_JLLo AjuS 



E 


J 


A 


X 


J 


1 


<- 


J 


s 


-> 


J 


*D 


G 


J 


Del 


A V 


J 


Ins 


A F 


^ 


End 


A A 


J] 


Home 

* m 


*W 


5 1 


*End 


A Q 


J. 


Esc 
A Ka 

*KF 
A KL 
*KR 



( \ - a ) J£& 

DO Test 
Good morning 



tr 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



pUl v^ 



^*_*j Ijlj i**^*- t qjjJo^JI JuAjlzj »l3 (Test.prg) ~>b > JI ^1 .kaOLj 

. JjUJI ^k«JI ^ij* *5 (Clear) Jl&liJI 

: JllJI ^Ja*JI SjIxS" j*Xj }li. goli^l IJU* JjJuJ i[>J LjliPj 

MODIFY COMMAND Test 

. I^LJUJ jfcSjj l^XjtlS" JjLJI jjJa-JI _^Ja3 *JUJI aJUb ^j 

^..■■\A.Tim.II j^a l JcUlIll Y — 6 

^i ^jU.'ill aJmi 1 >j>£j j>J < <ujUI jLkalj >jl»Jc*JI Jl^ L^jJLko qj^ g^l^JI 
<Ufc-i_j |ju»_j . <***-« 'W-o-* ^t**- 1 f*i j^*^' li-* 'UaS ^Jp <ibjj • 8^S"li >**£* 

. lj-a-UJIj »jl>^l«UI ,^ (Interaction) JpUzJI Ijl* j^j ^ L^Ijl>jl«>I 



(ACCEPT) j »Vl \ - Y - 

: JlsJI >«JI LL^ 
ACCEPT "Send report to printer ? (Y/N) " TO Pr 

: 4-£,L£jl J* aJIxJI JJL.^1 ^J=a JUofl c lxL. J* J^ajJI jul^ 
Send report to printer ? (Y/N) 

qjSs Ljop oIjl*juJ J-kJb ^Ji\ IjlAj . (Pr)' ^ixi\ ^ <jU"ill 

<il j^**^ l*J*j . -LoJlp CiwuJj ***>»- f JuiCUjI qj> BjJaiill 5_jL»- , ifl 

_^J <5 1*. JLij*- "U^SS" ajU-'sII 6Jm» J-oLu -uSJj 1 LjaJuJI LU^II J^jj^ 



IT 
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(INPUT) j—. .VI Y - Y - A 

»JlaI«JJ 2UL-J ,ji»>«J <£->?- (ACCEPT) jJi\ 4_JLi j^ll 11a 
sgl»l £. J^Lclj (INPUT) ~j2i\ qZIj . <1L»J\ 6Ju» Jp"<x*UI ^J&juj, 
^L»-^ll ii»iL^ lili . <u^jlp jl 4*S>»- c*jliT p\jm Upjj <_***». ^j-^i^il 
: ^bJI jJa*JI *jIx£ 'j^SUj >lij . ^jj* ^JiZo pLiiL fjjj a-ojl* 

INPUT "Enter your age" TO Age 
Enter your age 

. f\yj\. Ht \iiiii (>o SjSld ^f***- 4 pLSJu j»_jAJ 3*jJuI 

(WAIT) j^»V) Y - Y -ft 

lJubj . JL&liJI ,Jp <*a)u oblo S^ljj »jki«Lwil xJaLj ,jt». (Pause) 

: JJlxJI sUL-^JI 
Press any key to continue 

. (Default) 2L5Jull *JL*jJI ^ 6Jm>j 
: 5(1. ^tf jj>1 5JL.J ^1 fclx£ c ^| IS 
WAIT "Press any key To return to main menu " 

WAIT " " 
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g-UJi *,b* 



frjj^J <-J pOj (Pr) Sj-Slo ^&* f.Uu>\ ^ *u>Ijl»OlJ qS^j US 

: X£. J?i\£ JJij .JiiOLJll V^j ^JJI o>»JI 

WAIT "Send report to printer ? (Y/N) " TO Pr 

>I>x»»x-ujI JuJ lilj . LS^ jj^AJLo (^jSlj ojlijl x2j ^jJI ^j**-^' I <Ju»>_j 

: ^1 <^US *Sj >JuWuil ^ ajoJl* *o*3 JLfc-J ^ j*i\ Ijm, 

WAIT "Enter your choice (1-5)" TO choice 
Choice - VAL (Choice) 

15JU lSL***^ (Choice) .J>>- SjSli .>**£* *L£jI j*Xj <IL>JI ojuj> ^Jj 

JuaA* \+3 Jl jaA^II lift Jj>>^ {£4 ("J j»Jt>^«m -di-Ju ^JJI »3jJI 

(@... SAY. ..GET) ^—•Vl i - Y -ft 

>.x£vLumJLI 'ULujj (jiaj_p ^i aJjLwJI j-«ljjll Jju ^oMI Ijla >jl>jl%«-j 

j ■„„,.■■ S* ^ SjI a-l/l 6JL* ^J^ f^ • -UUi^JI 6JU& J* ^La-^l jl l^"i[g 

. (@) OjjJI juj UxjIxS" »^j ^1 oLiljL*.^! jj^L. ^ ^LaLiJI J* 

4-JjuiiJuJ J-o >>Lj ol ^-i SJjLJI j^\ji\ qs- s-iJi&o ^^11 Iju*j 
,-i JJi JU4 (READ) ^Ji\ *jl>ou*j US' . ^,1 Sji'loJI >**£« *.l£jl 
UjlLp >Lu* . 63ULJI ^-w> ^jJI >**^ll II* (J) > .x>«x*»-ll ^Ul j^jj^j 
jLxi-'Jll 11a ^j>>v3j JLiiLiJI ^ i-jjULU jUii-'ill ^ »Ju>ouil JI3-W 4>-j 

: SJUI j^k-JI SjI^ *sj (Choice) ^^-jJLxJI ^ 

Choice = 

@ 10,5 SAY "Enter choice" GET Choice 

READ 

aJL^JI joj» »J t (Choice) ^.sjlJI j^d\ %. Lijb Ijuj >ol_^ll ojjbj 
^,-Jaiij *J . ,j*-«UJI o>*J[> j-iUJI j_k«JI ^ (Enter Choice) 

. (Choice) 



la 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 
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<±j\j£A\ 4S1=JI T - a 

^j 5L.Lp IL^i g-I^JI ^ ^Iju^Lu^^I *-jLJI Jl£iM jlJ JLjjI^iJI <*UJI a*3 

*i5l*> £ .1^ ^ 1$aj, Sj j^Sj, . 2L^,U. ? i^ (DBase) SJbU g-l^j 

, 3 d ? » tj ^i\ \M-i S^L* Ijuj ^j . (DO WHILE) ^1 sJa-J^j (DBase) 
4— J g-b^j 2CjL=S" *^j JLul^idl UUJI UJSj £~i>>xJj . (ENDDO) j—^Lj 

: <JUI j^k-JI ^ q>&j g«ljjl II* . Mi* (Count) 

CLEAR 

SET TALK OFF 

STORE 1 TO X 

DO WHILE X <= 20 

? X 

X = X + 1 

ENDDO 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



: JL&LiJI J* ^1 ^kj gjtjjJI lJub Juii3 Aipj 



11 
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: ^IS" hJJxH WJLJI oji^l g^b^JI XJLL3 ^y ^SUj, 



^1 AI5 JL^ . SAUJI £— Jl &*& ^JJI (CLEAR) ^ g-b^il Ijuj 

pLzS] JL&LiJI J* jj^kJI o-* e-^W J^ 1 — j t 5 ^ «£*■" ( SET TALK ° FF ) 
4-.,.s.l..ll 63Lkp|^ (STORE) J&l S-L-l^ (X) jlxdl pLi.il |^sj ^ . 6 JlJLu 

ill !• . /n^. ..nr-rr n <r ««\ III •? I <*» II f-l ' II 1 ' „ a A. 



IJubj . (DO WHILE X <= 20) ^>% <jJj&}\ UUJI Ijuj ^ . (i) 
IJ cdl£ ULU La^JLu j^^-j ^sJI <jjl^dl **JI Juiu ^ , juJI ^ 



.mi i: 

"(X) w3 cuilS ULL LaJlJLlj j^^-j ^sJI <jjL>izJI tt»JI JuAiJ ^4 p juJ| ^ 

J* (X) "uj jej* Jl ^^ (? X) j*% . ( r. ) ^Lj J ^ ^ 

^ JiaJjj (X) ^j^Axll *~3 Sib) ^i (X = X + 1) jJi\ ^.J^s-j L£ . JUlAJI 
«JLJI JLLji aju»j (ENDDO) ^% . ^L^ 1 y5Jl * JI J^ 3 U^ f^ 5^-. J_£ 

. SjjI^zJI 

8Ju>l3 i_iL o)Uwi Jp jjji\ oLj LoJOp Sal* /.vX^l^wj (DO WHILE) jJi\j 
SoU -lijUS' »sj ^»H\ ll» ^,U JULJI o Juo ^ . U>1p fc-uu> oLLp juiaj oliLJI 

:^% 

DO WHILE .NOT. E0F() 

vJLUI S—jLp Jl J^-sjJI j^j J ULL ojj^dl Ul»JI Juiu ^juj IJu», 

.(END OF FILE) jLJIi ^j .(E0F()) 



(IP) ^1 iU^il^ ^I^SJI 31=^1 £ -6 

^.Coj^ . **+*■* iiiLojl** J* ptt^ jl^S iLwl aLj LjlIp j-»^I l-i-* /►AAiS^-j 
XjUlS" kJLjj (IFTest) Mu <u*«*i «wli.H ^^ i3i>^ s " ->*°^" '^* r**^ 

MODIFY COMMAND IFTest 

: JuJUl jj^JLJI fct^ «jjj) ^liSJl cAU _>$k3 SJUI ojut ^ 

********************************** IFTest. prg 

*-.«--- program to test the (IF) Command 

CLEAR 

ACCEPT "Turn on printer ? (Y/N)» TO Pr 

*„_-..-. if answer is yes , then 

IF UPPER (Pr) » n Y" 

SET PRINT ON 

tv 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



gJj^JI ifc£ 



? "You chose the printer" 
EJECT 

SET PRINT OFF 
*_____ if answer is not yes , then 



ELSE 



ENDIF 



CLEAR 

? "You chose the screen" 



^ JulA3 oUaaOUl 6JJbj . (*) <U»oJI «-9>>o oTji*j ^4^ ■ i ^^-' • £-°L>-*-" 
(CLEAR) _^<% . S:>Jls« ILJbj ^ayt j-o^l o-° *>*y»* J^ ^Aj j t!« x * j 

^ (Turn on Printer? (Y/N) ) JjyJI ^^ Jl ^^ JUI ^k-Jj 

. (Pr) j*«ll ^ X^i\ oJu* ^^j p) . ^ jl&s~1I **U jLtoij *AlaJI 

oh»JI iJub tf I-.U r JiiOL»il v^d ^ ^t^ 1 J 1 ^ r-^ J 1 *" jLmJ]j 
JuJlX *2j « (Y) o>j>JU Lj^L-— (Uppercase) ^^ o^- Jl <Ly>o -x*j 
-ll^i-J* SJlSL»j . (ELSE) ^% (IF) ^1 (^u Sjj-aaJI ^^1 2u>j-^- 
U^JI »Jl3^JI Jial pl^ t»*lJI ^ J* jA*JI ^ (UPPER) UlxJI 
^1 r xi^J.\ Ji-al lilj . (Lowercase) I^jl* J (Uppercase) {j-^ 
(IF) ^ Sjj-^il ^Vl L5 U < x, g-b^JI r ju . (y) J (Y) ^J> >T J^. 
11a jLli^j . (ENDIF) < (ELSE) ^ Sjj-a.il .j-.^ 1 ^i* (ELSE) < 

: *kfcJI S^^ ^ ^1 I JLfe ZjIsX j»JLj g-oli^JI 

DO IFTest 

: sUtzJI SJL^I ^3 jx3 ^LiJI ^ ^ SJUJI 6Jj» Jj 

Turn on Printer ? (Y/N) 

J* *JUJI aJLs-^JI **LJ» ^ Jliofl c Ui- Jp J~-^ (Y) ^la* ^ liU 

You chose the printer. 



£A 
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iWV^ 



. (EJECT) a*jUJI Jp £*i~ JSi *Si jKi 

*_a.LiJI j*««j g-b^JI pSj (y) jl (Y) _^*p j^-T tj^*. ^1 5jb5" jO lil^ 

: 5JUI SJLu^ll jbyij 

You chose the screen, 
^i (ELSE) S-J-S" U . <i S^U- (ENDIF) US' <J (IF) _-^l JS 1 *k*>L 



15*» 



^ujLii.1 



(IF) ^-^1 -Uij^ ^JJI J-»JI (j-ii J**^ ^ (IIF) 2j|jJf Jju&CuJ j^»jj 
: JlxJI jL+J\ Z>\& i'j&oj M£*i . 1$xjIx£ vjJ^UI ^jlwll oap ^ j^Jjj « 

?IIF (X < 10, "Less Than" , "Greater Than") 

aJL-^JI Jbj.* |^j (10) ^ jk^\ c^ili" lili (X) 3L^ ^i>o ^1 IJla 
*JL*»jJI ^b^ j*-X-j (10) q-o j_jS1 c^LS" li[, . JL&liJI J* (Less than) 

. <aLJI Jp (Greater than) 

: SJlxJI ^jluJI ^IxS" *Xj (IF) jJi\ ikwljj SJL*-" 6,iL * a*"-* 1 !**&£}_$ 

IF X < 10 

? "Less Than" 
ELSE 

? "Greater Than" 
ENDIF 

. j^Ja-JI OJ^P ^ CJ^Sj 03 (IIF) SJIjJI jl .kaOlj Jib ^j 

(DO CASE) ^<»VI SUx^l^ j\J&\ vJlkSl A - 

^-jXj <il A*.. « (IF) _^ll q* X^ ^1 5-,j^ jJUj (DO CASE) ^l 
^US j^^SUj JJi g^jzij . j-^uo ^^u^o UjJ L^r o^U- bjlp <^j jLxi.'ill goLi^JLI 
8^-^Lo ^a JlxJI _^l JuUS" *jo jJJi Juiidj . (CaseTest) >U* u»j g-b>j 

. (Dot Prompt) ikUl 
MODIFY COMMAND CaseTest 



tr 
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C^Ml^tf 



1 . (*End) jgUS; g,bjJl ljub 

***************** CaseTest.prg 

*_---- Test the DO CASE command 

CLEAR 

INPUT "Enter a number from 1 to 4" TO X 

DO CASE 

CASE X =* 1 

? "You entered one" 
CASE X = 2 

? "You entered two" 
CASE X - 3 

? "You entered three" 
CASE X = 4 

? "You entered four" 
OTHERWISE 

? "Invalid number" 
ENDCASE 

( T - a ) J£a 

. SL4.LJI ~^ Jl &fyi oLk^UI ^5^- Jl^ g^b^JI ^ J^ll jluJI, 

: UL&JI Jp JLJbdl *JL,jT ^^ Jl tf afc, JlsJI >-J^ 

Enter a number from 1 to 4 

6 Ju» .J . Jltdll c lsi. J* Ju-aJJ, A, Jliol ^ ^ ^.b^JI .>«* *J 

. (X) JIo-JI ^Jl ^ ^11^* w3" r=i «-" 

(1) ^L-J (X) cutf IMl . (X) UJ* pL4 jMJI ALwl 1a-j *J 

: JLJUI 3JL.JI g.11^11 \jfcrt 

You entered one 



0* 
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: UlxJI SJU^JI ^.bjJI ^^ (2) ^jLj (X) cuitf 151, 
You entered two 

JLJI _^l 3UU3 *ij « oljLx^lll aim ^ U jjbu^ *J, JUol *j 151 Ll 

: *JUI flU^I jj^li Jl ^a>j y>j . (OTHERWISE) U£J 

Invalid number 
^1 <^» . (Structured) <^jXi\ *£l>JUU. g*[jJI *jU£ Iju>- *^il ^ 

4-Jj-fl ... .1 Oia»ua3j 6jLii-l_j Tbobj^JI ,JI f^»-jJLj g*IJ*JI It It>J j***wJ ^AJ^JaJI aJJ4 
j-i-T ^aA-A JUal-l^ "CjI^S" vS»*3 ^iJI g-oli^JI Ssl^AJ gjj^ Jkk>*> ^ £*»J U£ 

. 3»-U>JI uw .* Ojj^JsJ _jl aLjuJJj j»U2J!j 

: ijftl 0uAi3 u*j WjjJJI ajl^j gob^JI ^lx£Jj 

j-ol^ll £-. i*j»>* JS" SA-Jij j-^iJ ^1 OwajjJI ol L.0I1I JjL^fc&J - \ 

. OAJl>v» *iuJ»j i5d>3 

JuoUJI ^^kJlj o>L£JI oUUJI ^1 (Indent) j^L-JI ^bL, j^u-jO - T 
. &yi»ji jJL~i\ UflS, SLjIjl; .^frbj ^jl^ (DO CASE)^"j|[, (IF) ^Mb, 

. U> JuiAJ jkXj ^1 *AJ*jJI j*^ ^jdl olj^dlj j*lj^l jUsi-l - T 

*Zj jL% . ( T - o") j&SJI ^Jail . (Structured) $*~S*£jl SiJjJI SUI^. 

. ( i - o ) JliJI jJul . sLJjJI »^» 5UI^ -uJ 



^Jl Az>J ^ jj£ "■» ^ (Indentation) Ji-ljJJ j>k-JI JL>»J px» 
i~~jAi JJjSj UxjL^j *jjU&JI *ai>JI ^Ij^ 2^i» r ^ J' ^^ '^-*j • -^ 

4>L^JI oUUJI 4>3 Ujoj^ . (DO CASE) jJi\ j\ (IF) ^5U aJUI j^Ji 
SjJLuo <JLp a >,»■>, ,„,<■> Tj p^eb^l j Us*- 1 'UU* rj-r-^aJ 7£-*Ltt"" *Ji*« i^ ^^^i ^ 

. Iji>- 



ot 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



e i*tl& 



***************** Library. prg 

* .. _ Example of an unstructured program 

USE Library 

DO WHILE .T. 

CLEAR 

8 1,20 SAY "Library Management system" 

§ 3,25 SAY "1. Add new records" 

@ 4,25 SAY "2. Print Reports" 

§ 5,25 SAY "3. Edit data" 

@ 6,25 SAY "4. Exit" 

STORE TO Choice 

§8,20 SAY "Enter choice (1-4) " GET Choice 

READ IF Choice = 1 

APPEND 

ELSE 

IF Choice - 2 

REPORT FORM Library 

ELSE 

IF Choice = 3 

EDIT 

IF Choice = 4 

RETURN 

ENDIF 

ENDIF 

ENDIF 

ENDIF 

ENDDO 

' ( r - o ) J£a 

Ut\ JJL. -SklJ UJU- l5 i- J«3 <* ^1 J^fl J*** pi-*-**"' ±*^ ^ 

\j\ uZJLT,^ iSsS&vui 5 ^ i^j • < D0 mil ' LE •*■> 



M 



or 
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eJ^k *•=* 



jl -dLjjL^j," 4-JI ^jJ^JI j^ (Documented) UJj-. L^b^ ^^u^' ^53, 



*********** * ***** Library. prg 
*----- Library system main menu. 
USE Library 
STORE TO CHOICE 

DO WHILE Choice # 4 
CLEAR " 

@ 1,20 SAY "Library Management system " 
@ 3,25 SAY "1. Add new records " 
@ 4,25 SAY "2. Print Reports " 
@ 5,25 SAY "3. Edit data " 
@ 6,25 SAY "4. Exit 

@ 8,20 SAY "Enter choice (1-4) " GET Choice 
READ 
* - - Branch according to user's request. 

DO CASE 

CASE Choice = 1 

APPEND 
CASE Choice = 2 

REPORT FORM Library 
CASE Choice = 3 
EDIT 
ENDCASE 
ENDDO (while choice # 4) 

*_____ W hen choice = 4 exit. 
RETURN 



( I - o ) J£A 



or 
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-^li^JI UJs>j ^Jb &*& oU ( ( i - a ) J£sJI ) ^alaJI e-IW U 
*^>\j olLolil J* 1 J^5Lj a^ . JL-STjIll ^»>JW vi>^ v&j l ^ LJI 
»j ojl^iJI SsUJI Jib ^^kJI J* 1 J^Mj L* . r~>\j ^jLA» Z^j LUj 
ksL»JI SjIju jujl*j J4-JI & jZ*j L. (Indentation) >L13 J^I.aU US^a 
^» LLlJ (DO WHILE) jaH\ & Ua« £~^l ^LH^ O^i) U^jUb ^U^JI 

j .tf JL-Jjl, XjJ^J ^ US' . ( ^ ^UJI (ENDDO) ^1 ^Jl J— h! 

^l/dl JlJui-l ^3 L* . 3Ub,iJI o^JOj <j JLpUJI jji^-JI i-*l«Sj (DO CASE) 

. (DO WHILE .T.) j/i\ ,y> ^ (DO WHILE Choice # 4) ^1 

g-Jj-JI LLjlI -jbyj (ENDDO) US' v 1 ^ oLkOlil -I.X&&J J^Mj US' 

.LlhJLJI ju>3 Lajlp <^»Li- ULaj xJb Iaa, . USJI *Ju» 1<J ^ ^I^Sj S2U ^1 

<_J£ jl (ENDDO) U£ Juu w-sSb cjLk»^L ^1 ! a-. . g-b^r ^J ^L^ 1 

. (*) JpJI Jl*j st^S** Ai^JL ^1 Jl. J-l*3j e-b^JI l« j*A$ (ENDIF) 



oi 
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{ £» - n~ l JjI—j 



^-olj!U Pl5 JoL>JI pU^JI J!L <Ja*-*j 0^X3 jlj Lj^p P I V, v^ . f i l a. i 
jlSj . g-bjJI J-JLiJ jll* L^iLi^l J^j plLi^ll el*, . (Misspelling) 
. L^sLiiS'l ^u ua jj sjlLw (^^jij SiU ,y»j (Logical) JLiku ?LLU q>-1vj 

Ujill S^zJI ^ 5L»^i c5 J ajJ L^j e-olj^JI oULl Jl ^Ijj'il jl3 I**] vi*^. 



eLki-^l .JL^I g-olj-JI JaJiiwo J^ J-fr-J ^1 (Debugging Tools) 

Cancel , Ignore or Suspend? (C,I or S) 

(Cancel) ^ l^ yi -^ 

UjUI Sj — -JL. Jl is_rMj g-L^JI J-jl£j *l«il Jl ^^ jLz^l ll__» 
<-*UJI Sj.S'lUI ^l^^juu JS" l5 ix^3 <JLJI 6Jub ^i, . (Dot Prompt) 

. g.bjJI J>U- IajIajI ^3 ^1 (Private) 

(Suspend) j\y^"j\ -Y 

SJU>JI jj & ^_-o L; — 3>. E — .Is-^JI Uujj Jl ^a->j jL-ii-IN Ij a 

^ Si>*>« 35-oUJI s^lJdl oj-^ii. J-ka SJUJI 6Jm> ^j . "(Do suspend) 

. ikiJI S*JLo ,-y, (RESUME) 



6V 
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wi •»■ n^isJI (LsLmi^ 



(Ignore) _>Lil^l - T 

^JL A^au UjU-j IkAJI ^ <JL9 ^>J| _^L«J| ^Lij j| jLx^l |^ ^ ^ 

. l**.^ jjL«JI ^3>UJI oljLxi^l ^uJb ^^^kt SJLJI 6 1* ^, . (Esc) 

(Memory) S^SIiUI ^j^^jc T -"X 

(Memory) 5^1 JJI ^^ , ^-b^JI ,lLi.1 jLLtfl ^j SJLaJI JjLu^II ^ 

: JlxJI j^ll *jlx£ ^SL^ XjLo (^uc LLi. ^jji*. oo-i 
DISPLAY MEMORY 
oj^^iJ^ ^ ^ (RAM) fcj>ll S^lJJI <JU ^^ ^ *JLJI 6 Juh ^ 

. l^l^lj, S^lJJI Cj^jJUU ?LJ ^u.1^0 (Jjjl ^ IkiJI .^^u 

DISPLAY MEMORY TO PRINT 
_A~JI S-jUS' jj> ^ ^^Ul oLjLJI sjl*L3 ^jJLo JXjb ^^ ^SL. L£ 

DISPLAY STRUCTURE 

obUI A»{p oliL *LJ ^^J (DISPLAY STATUS) ^1 JjlAjlJ ^i^ L£ 

. ^_^ill ouJU JJlSj <».jSill 



oA 
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; y^ '«sH J&-J 



(History) £j->Ulll o-ii^t T -1 

Oi^ >J o&±* U^ {*i *-Li- s^li .y* (History) ^jjLxJL -s^^all 
^1 ^^j II*, . (Dot Prompt) JLkJLdl 5^-JU J>U- £-«, L^JU-il ^j 1^1 
Jp Ju-ijg .iUi, c 1^.1 ^jl^ >.T ^ <JUof >j _^1 ^1 Jl ^^.jJl LjIX.1 
sj^ ^1 ^US" j^UJI JJ^, J» ^ IJubj . 5Ll. ( t ) JpT f^Jl'Uiu 
^«J&j ^x*. cjLh so* ( t ) J*H ^J\ r\Xu> Jp .LjLiJI ^jtfj ,«■„-■* t culj-. 

. JU-^I c \Uuo Jp Jai^l pi J^JLkll ^1 

_,-.l<,1 I d**». . (Command files) ^.l/sll oUL Jp j.Ja.-^ |jub ^j 

^Ji\ ^lj^iu.1 j^ "ill (History) pjjlxJI s^li ^j L^>Aa . sji m 

UJ^il3 ^ ^sJI ^Ml j;,^^ jJcjjUrs^li >*^ (SET DOHISTORY < 



ON) 



_ g-lj^JI Ui2jJ lili . g-Lj^JI Ji^iu J^3 _^| \jjt iulx£ ^j^j JL^I 
^ pj t Lt3> g-ll^JI P Ljil ^ (SUSPEND)' ^| .IjlAaIi ^SLj ^ UL* 
. (LIST HISTORY) ^1 _,! (DISPLAY HISTORY") J!,Ml ^Isi" 

: M^ Jbdl>-JI 2blx£ •>;> ^p [^1 ^jjA* 
SET HISTORY TO 50 
-X^Au P lkj| Jl ^jjj,, (SET DOHISTORY ON) ^1 J ^^JL ^c^ 

: JlxJI .^Jl hb£> AiSj . ^juJI ^^Jl J\ ^MfsoUl '(Debugging) 



SET DOHISTORY OFF 



(SET TALK ON) ^^1 ^IiKmuI i ~*\ 

j-jAjAI lS 3^ g-Ll^ ^1 ^ (SET TALK OFF) ^1 ol^ ^ SaU 



a\ 
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ma*maZI| |UL^m« 



-Ml 



IJl* SJL*i« qjSJ JjL.^11 ajLftj . IfcJuAtf jCLj 5jiai- J£ ^>i ,-ill JjLwjJI 
^U ^1 JJL-jJI Ok. jkIj Uk" . ^bjJI jliA3 Jf3 (SET TALK ON) 

Jl3 i Mtbj^JI ,j Qt** "**■ *iyJ*-»- J^**i • S^Jaa- Jji JuJ^J JULp <Lu>l-£j| ,1p 

. UaiJI Ijdk i.w-ui 7**-i>j3 Jl JJLujJI oJjb ^J>>3 

(SET ECHO ON) ^>j»VI jJtJukXuJ -*\ 

jJa-w JS" (ji.^* Jl ^-S^J II* ^li i j^ob^JI JuJAJ J-3 _y.Vl IJL* ^jLX^" JlU. 

jljlp (Default) ^Juil ^jJI Jl ^1 SaUl ^^^o, . 6XJi3 Jj :l&L&JI J* 

: JliJI jJa*JI Z)\z£i JJhj j«*>w«alJI SJL* ^ 9 LftSJ^I 
SET ECHO OFF 

(SET STEP ON) ^^1 jxIlA^LuliI *\ -"I 

ol^L-i- «^jJ» ^Li\ JJl—^JI U (SET ECHO ON) ^Ji\ »ljuiOU»l JUL* 
^1 JsLjJ) q&j . A*>JI\ (3*— ^ e"^' J^lu 9 U3l 5L&LiJr Jp jg^f JuAiJI 

aJUk j)j-$Jo 9 Uajl JLJjT liU . ol_j-kiJI oJ-ft <J^Al3 <p_^u) «*o 4*J>**> _j^la3 <Jl»JI ftjjfc 
j-<M »|jU>JU»l ?JUJI 6Jl* ^ A-'XtJ LglKjlX- g-I^JI Utr>^ *-Ja£*»-{ ^^ JJLujJI 

t-JJjJ ^ « 6JL^in JO* j-ol J^" ^^ Jl ^yj IJl»j . (SET STEP ON) 

: SJlzJI ^JL.^11 jb^P %3 « LsSj-o gob^JI 

Press SPACE to stop,S to suspend, or Esc to cancel 

(Space) oliLuil Sj-L^ J* JaJi^JI gJ^JI S*L»JL $JL>JI aJu& ^ ^^Ujj 
Iki. *k»>L jop JJSj « e*^' 3uto J*^ ( s ) *^ jf • J^l j-^ 1 ^uta* 

?t-*£j IjJhj . rwb^JI j>o 5^>JJ (ESC) u-Jju^JI t-UJLo Jp JaJLJxIl jl I Mi* qjju 
Llo g-oLi^-JI J-JUiJ pli31 j-ol^ll JLjii3 JJL-j .^b ^ *^>^JI »-L>JI JaJ^*i 

. gob^JI ^ (Logical Errors) JulkUl P Lki-^l jLi^l Jp aJi*L*j 

(SET DEBUG ON) ^aVI - t.tA.1...l V -"\ 

>Ju>JLwuj _^ftj . <jujULJI Jl g-Li^JI XJlX2 oljk*- JLuij'il ^Ml Ijjb »Jk^X*«-i 



y.i.i'. i.. '.r ' Adi.^.Li.iuai.^i.Li.'ii.ii .i .iiM.r 'i.'. in. i.th 



r^*" -•*"" lP^**U 



g-bjJI oljJLi 4_*_jU (SET STEP ON) ^ML, (SET ECHO ON) ^,Ml ^ 

. tk>JI jl£. wJLLS^I jkSj ^^ SjJLi. SjJai. 

^1 (Error Messages) P Lk*\ll JjU, jUbl c*-^ f 2 * *>?*" '^-* 15* 

(Data type mismatch) ilL-u^JI ^ - A - "\ 

i^iLiUaS! Lui^UJI obLJI _,1 < >Ll» JLjiJmi' **i^JI obLJI *JLLw Jjs* 

: JlsJI ^jJaJJl <jIsS" "julp 5bUi ."' Iji&hj JlJp. 

LIST FOR Date = "01/30/90" 

J-S^JI jM -iUi, . (Data type mismatch) -ULwu^JI j ^t 
j^^j^I uijJJI L.T . ^^w £j,Lj J^ ^jJL>o ^^^ojb JJU. (Date) 
a n ii.arJI oL.M_p aj-j^jJ ,5-^-* 0^ J-4* ("01/30/90") 
(Date) ^jjUI J->^ -^-i jUi r?L*Jj • (Quotation Marks) 

: JI\Z 8>tdl JLJpJI *-*aJI J' 

LIST FOR DTOC(Date) = "01/30/90" 

(Invalid function argument) jlILu^JI T - A -*\ 

KJIo *_* oLjL_JI j^j-o -jam r-jj >|jt»oLwil ju* s^Lp 'ULojJI o3ub jflk"r 

? UPPER (X) 
^ . (Numeric) soJlp JLaS Jp tS*^ ( x ) -js*^' O^ tA^k? 

Invalid function argument 



*w 



y.i.i'. i.. '.r ' Adi.^.Li.iuai.^i.Li.'ii.ii .i .iiM.r 'i.'. in. i.th 



•te»wAXK ^JjLuy 



^1 S-J-W ^k-^ 1 J-j>»^i -tJU >.v.^,u,.3 (UPPER) SJIjJI ^ ^Ji, 

. (Uppercase) s^*£ .Jj^ 

(Unrecognized command verb) JIL^I Y - A -*\ 

. (Syntax) ^*i\ lJub Siufc Ju^-I^ «jl. US' . ^-o^ll p Uj> Ju^-I^o ^ 
(Syntax) £u$JI juju>j ^ (Help) sjlpLJI ^L&Li. >Ijl>jlJ q£+& 

(Variable not found) JILlu^JI £ - A - *\ 

■^Ljjjj 1 3--*j J S_^li _>**£• j^-u»l olsS* Jo*- Sal* aJLujJI ajuk _j g k-t 

j ^ 1 j»l>A — »^*"l o ^ " " .! JL ' 1 -- — **" 6 ^ — * t5-»J • ^-oLo^ljl ^ 

oj^Jtfil *L~,1 y^jwj Sj^lUI oL^ jb^J (DISPLAY MEMORY) 

j oMl *|j >^»J qS „j Li" . Sj-SljJI ^ Sij-a-jJll 

OiliLJI SApb UiL, ^ JjJaJI *L*J ^^J (DISPLAY STRUCTURE) 

(Record out of range) SILu^ll a - A -1 

^J> (Record) J*^ Jl V UJJI SJjU*. jop OL^JI 6 x* ^J=a 

: JUJI ^k«JI ^bS" JOp >bu» . , aJLLI J z^y. 

GOTO 99 
j*ks 2UUJI fi l* J . J^ )U« (98) Jp ^^y^ ULUI I ^^ 

j-^lill ^^^ill UlL ^4 Lki- ctijJu^ JUL* UJ SJL^I fljufc ^JoJj 

. (REINDEX) ^r r ljAa«g ^^AJI ,1*^1 SaW, «u-5U ^ fj^ 

(Too Many Piles Open) SlLu^l *\ - A -1 

^-Ji ^ oUlil ^ ^^ o,xp gtt julp s^Lp al l -- Jl ojub jC ki 

*\Y 
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£ ■ •* ■ "" !! Jil—j 



«JL>JI 6^A ^ . oULLI ^ ijuJI lift £&} ^ ,-^.J (Config.sys) 
JujJLUI (Files) oLsJUl cjlp u «> a .n*jj oLL^I^IjI ,.JJU JjJuj ^ 
^ JUyall oUUI ^jlp JJteJ g-b^JI ^i |^i*jj| ^ US' ." £,£jj 

-Uuo J-oliCJI 

^ (Procedure file) cdIj k-vll v_ilo »I,i*aJ j <„■. US' 

• .1 <i->,8 > <i 



tT 
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asiaii *&m 



**Ih» ii&Ji AUjla* f m 



>3^*"V till! MXUJ) *Tj»Lj >_» 4 
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Mux 



4—aOSjo N - V 



I . ^ _ « "II . ^ II ? ' I •. . ' /•»«■ ¥*. ' I .1 Oil 



( Lv«-w-Xj f"_J-AJ iS^JI .juxSwJ 



Jl o' >/' 



«- ■ ^ - ^ w v - a j • (Menu Driven) aJl^iJI J>U» 

Uj^ (DBase III+) gobjj ^Lai- ^ p^ ^1 tijju, Jl ^l^^ ^>li>JI 

Xs-yn2*A &jb (Jf- A.iNo.1 (J^Jj • i-*auU«JI j^P oLo_jLd,l ^ ^**J __)A3 .—II ^-IX^ol! 



(Ha in Menu) ?im ^'y^l 5a1I51I .-tu.r.'i Y ~ V 

£»iL3 ^>o>-«H fJ-A-d c5"^" 2"^-**" J"* 15*"^^' £"" ^-W^b • (^^J cT- ^ £*^-H 

»Lo1 j-^JLj L> JjI ^j « »UaJI vJS _^*3 -uitsJI aJukj « >jl.->jl w .<JLI ojjLii-^l 

j^)Ml 5jI*So »UajJI ( l.„ii.w."j siA^vLudl pjAJj 

(DO Cadets) 

SJUJI aJub ^j t ^wJ^II g-bjJI jk*»l ja( Cadets) ^* . <kSJI 3^£_« ^ 




ODD NEM NAMES AND ADDRESSES 



2-PRINT REPORTS OR LABLES 

3-MAKE CHANGES 

4-DELETE NAMES AND ADDRESSES 

5-CHANGE COLOR 

6-EXIT 



HILIGHT OPTION B¥ USING t OR I AND PRESS-H 
OR PRESS APPROPRIATE MENU NUMBER 



( \ - V ) JlA 



*\\ 
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.UuX 






fL^i 



StXiiAa- jj-VJ^^J p IaujI 4aL*aI \ — Y — V 



CA1ET MO 
NAME 
CLASS 
P.EIIGICN 
BMTH PLACE 
HOTHEP. NAME 
FA1HER JOB 



DATE ENTERED 




ADDRESS HbBH 
NATIONALITY 
FATHER NAME 



TELEPMOH 
■ BLOOD TYPE I 



BIRTH DATE 



■■■■■■■■ FATHER SALARY 
HO OF BROTHERS HHH SEC SCOOL AUG 
DATE OP SEC. SCOOL HE) HOBBIES ■■■■■ilHHIBHHHH 
NEAREST REM HUE ,AD1ESS ■■■^-^-■■■■■■-■■■-■l 




( r - v ) J£a. 






b^^a^JLI j)^llaJ(j ^^UlUI 4nLL> Y - Y - V 

.< r - v ) jiiJL fejyll U(ill ^JiJj iLyJ^I Wlxif^jteia 2UUJI 
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-UuJI 



I 



SELECT R REPORT CHOICE 



1 - REPORT 

2 - LABE1S 

3 - RETURN TO MAIN MENU 



| ENTER VOUR CH0ICE<i-3> g] 



( r - v ) J£& 

Do you want (A) 11 records, or (Q)uery? 

^» (Query) fitted! jLii-L . obLJI so*L3 ^ *i*>*JU UUI oliLo 
: <J^' ^J jw*t J' cS^ (Q) lJ > >JI ^ tfc> 

Enter name to display 

JJi\ o^hJI ^ «J>U f^j (Highlight) ^s^ ^-* ^ £• 
J*a ^1 ^ j^. Jj,l Lb* <JL>JI 6 Ju6 ^ ^^jSj, < ^^kll ^1 a- 
-UJ ^ o>JI Ij*j Ijuj ^sJI ,L-M £~-- ^^ £«k>JI pJL. c*^* 
1 : JLdl JyJ\ fJ±Jl~d\ r U ^kj US' . Ifc *~UJI o>U~uJI 

Which one do you want? 

t_ s ^_ MA J| -Jj Jul* ^Jji* Q* i_j^JJail j**u "ill jLjXi-l •JuJNiZwJU ^*XJ I^Aj 

: JLdl JI>JI ^i obLj ,_^p ^_>U=>1I f~»>U j.A^x«il jL^I a*^ 



v\ 
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r UwJI 



(N) h\£ JUL*, 



Send report to the printer ? (Y/N) 






L; (Y) O^adl »v 



( £ - V ) 



CADET NO 

NAME 

CLASS 

DATE OF ENTERING AIR ACADEMY 

BLOOD CLASS 

ADDRESS 

TELEPHONE NO 

REUGION 

NATIONALITY 

HOBBIES 

BIRTH DATE 

BIRTH PLACE 

SECONDARY SCHOOL AVERAGE 

DATE OF GETTING SECONDARY SCHOOL 

FATHER NAME 

MOTHER NAME 

FATHER SALARY 

NOMBER OF BROTHERS 



69G0 

MOHAMED ALY SALEM 

55P 

09/01/85 

A 

13- ABBAS ELAKKAD 

2603556 

MUSLIM 

EGYPTIAN 

FOOTBALL 

01/22/67 

TANTA 

70.00 

1985 

ALY SALEM 

FATMA MAHMOUD 

600 

5 



( I 



) JS^, 



(Hake changes) otiLJI J^ju£ Y - Y - V 



15 



9 T - A J 'LuuiwJ 






Enter name of person to edit 
or just press Return to Quit: 



VT 
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,1* j^ll >^laj obLJI SJ*l3 .J ^>*>* _>** b**ul >jt3vLuJll J>»-<aj LoJt**j 

There is no <name> 

Press any key to try again 

l£, j flk; -■ " -dU-Ju j^JJI UaiJI ^1 1 *k*iL £. 

^LoUJI obLJI ^L&Li. ^ka *^l Ijjb £»b^JI jl»o L»ju*j . (<name>) 

. A>-L>JI i_««j- AJLjJuCJ JS*. J^l ,J* ^-A^ll .^JaJj *j 

' ' " ' " ' .' VJ lkll 

ij-nJ J-.'^.wJI ,!*■ i_>jJLLll ^JjjLuill p|^jj.L) > A J n. L u.il j»>AJ (j! >A-*iJ 

uZi>'1>. mil 7*""-* i "~ » *~ V 

li « U-u-J^JI U5UJI ^ (4) jj, jL^I pAAS^II jUiu Ujo* 

«t«dl JU-oiJ *Ji£ol«JI ^Sjj . -ubLu p— ii^ll ^1 o* JL-j g-b^JI 

JL* 0>L>w-JI flSjT U^*-«J Ui>>JI fJUk j-9 jijZ£3 ,-lJI pU-uJ^II »Jl£i<LuJI >Lol 

f.jLJ.T.M.11 ^objJI £*Ij SJUJI DJU* ^j . v^^l J-?""-" J^*-^ fj"*i 
: jjfill^ JJij « ^ pi J^f**"-" I JLJfc ~*-o Ju^j ^ISf lil -Uly^j ».V j> «. ? . m ..o.II 
Record/ name address 

1 Salem Emam 12-dwawin-Cairo 

Delete this record? (Y/N) 

^ » a\j3l\ >*Si\ qp JlyJI j&i (Y) JpJI >jl>juJI ^ol. Ljulp, 



VT 
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tALJI ^^p JjjJ> ^ l^al ^1 eUv/ill -^ _^, j^ o! <*5b 

: UWI 

Records to be deleted.. 

Record# name address 

6 * Eman Salem 12 - Dawawin - Cairo 
9 * Medhat Taher 10 - Nasr city - Cairo 

Delete all these ? (Y/N) 

jjjl SiLu^,l <J J^J qJjjJI U . (N) j»JuiJL«JI u.^ LjLiPj 

2LUJI 6^A Jt^bj . %ol$i <U>^ «JLj"i( ^^ t ^JL»«JI (^JJL* ^-o J-»w 

. (Delete all these?) JI>Lj| ^U (Y) olii ^Jb <JUJI Ju» 

. obLJI sjipIS ^ I0U3 .iOUv^JI 6Jm. l5 »=>^ 

(Exit) ^U^il! ^ ^^l a - Y - V 

. (Dot Prompt) SLLiiJI s_^« J I 

cuIiLlJI SjlcIa i_ilo P LiJl T — V 

(Assistant) jl*LJI £*b* *J|^ jjjl> ^ obLJI sjl*13 v-ii. *LLil »a, 
r •"*•" ,5j ^ — . (CREATE Cadets)"' _^MI oLxS" JjjJ, ^Ip J 



UUI 



>^ ■ 4 t- • J^ 1 v^' J^ a- c 1 ^ 1 i3*~ ^ ^ • < Dot Prompt) 
JjJbJI ,L-J aja>j L«J>U. ^ ^j ^L, ( - v ) jLsJL JUw^jil UsUUI 

. ^u^ijJI *l3,^l aApj <^ > >j Ja^- J_£ ^ij (Fields) 



Vi 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



CUItSOH < > 

Char: *■ + 
Word: Hone Bid 
Plan: A *- ** 



INSERT 
Char: Ins 
Field: *H 
Help: Fl 



DELETE 
Char: Del 
Word: *lf 
Field: A U 



Up a field: t 

Dttkin a Field: 4 
Exit/Saw: *Eod 
Umrt: Esc 



Field Name Type 



Uidth Dec Field Name Type 



1 
2 
3 
4 
5 
6 
7 



ADDRESS 

AGE 

NOTES 

PRICE 

QTV 



Character 

Character 

Numeric 

Nemo 

Numeric 

Numeric 



IE 

30 

2 

IB 

7 

7 



IODIFV SIKUCTUKH <C: > M0K1 





2 
2 



Field: t/V 



( o - V ) J£& 



: ^fltf JUI J£db 1 j>j&j 



Field 


Field Name 


Type 


Width 


Dec 


1 


NAME 


Character 


35 




2 


CLASS 


Character 


4 




3 


ADDRESS 


Character 


40 




4 


SEC SCHOOL 


Numeric 


5 


2 


5 


DT ENT 


Date 


8 




6 


T NO 


Character 


8 




7 


BLOOD 


Character 


3 




8 


RELLIGION 


Character 


12 




9 


NATION 


Character 


10 




10 


B DATE 


Date 


8 




11 


B PLACE 


Character 


12 




12 


FATH NAME 


Character 


32 




13 


MOTH NAME 


Character 


33 




14 


F_SALARY 


Numeric 


10 





Vo 
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15 


F JOB 


Character 


14 


16 


NO BROTHER 


Numeric 


5 


17 


DATE SEC 


Numeric 


5 


18 


HOBBIES 


Character 


38 ) 


19 


N RELATIVE 


Character 


35 


20 


NOTES 


Memo 


10 



a_pLuJI «-oLjj_j frjjjo ( ^_p L>aj1 j^uj-^ill wJLL f, Lijl ,^_iCojj 
^ JLdl ^1 *£& jjjJ* ^ jl . c Uu*jll j*« US' (Assistant) 

: 3Jaldl S^JL« 

INDEX ON UPPER (name) TO Name 

(Name.ndx) ^^ail lJUI *l&il Jl ^1 lJu» ^ajjj 
^i_a>* ^1 o--*-^ 1 is 3 *l— fll Ji**d l** (UPPER) SJIjJI ^IjuWLu.1 ^jsj 
US' cjjJLLJI ^"Jll Jl Jj-ajJI £p^> Jl ^^3-1 iJukj . ^liUJI 5Jlp13 i_*L ^J 

• Juu U*i rUxJJ ,*Jt-,»-MJ 

O-j^-A £^3 *5j « <j t/>UJI ^^iJI t-iloj obUJI S«XpL3 « oJLo pli^l juoj 

J-jJl«j fjscjJA a\J \*\j . j-Liu^fl fu** US' gtbjJl J>U. ^ U$3>LM J ^^AJUI 
>_aJL« j»jls q^> jk^kJI SJLJI 6Jub ^J ■?*■»«*» E*^>jJI f I »*#«*«» I qj^ oliLJI 8jlp13 

SJ-pIj ^ JjJkO <jM Up ,j"^l ^»jJu>J *0j ^ obLJI SJlpIS c_iL> « ^u^iJI 

: JUI _^l ob* jjk ,y> JJ & ^ . obUJI 

USE Cadets INDEX Name 

^-j-4-i-ll v-SJLj (Cadets. dbf) obUJI sjlpIS Ud* ^si Jl ,3^ lJuij 

. cJjJI ^wii ^ (Name.ndx) 

Jl^aVl JLiLi, pLill £ - V 

^ p^ii-JI ^.Jaa^j ^^ (Screen) JUJ <^>l& j««*-a3 Jl g-b^Jl g-li>o 
O* Jlv^l ^s.La plAil ^^S^j, . obLJI sj^IS JL Jl obLJI JU.^1 U3b> 
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plkJI 



Liol La^LajI qZ+j L£ . zy*i*\ £*« L£ (Assistant) jL*mi pilp ^jj> 

j£*Jb 2U«i»j!l Jl i-i'ill a &U pLijI Ua ^ sAi-» JJjJ, « J^ll v b£)l ^i 

. (Cadets. fmt) 4~J <£li-ll ^ ^UJI - — fiJJ.1 t o^^j • ( r - V) 

^_*^5Ill pl.ti'J A — V 

jl Liul (Assistant) jlpL*II g-bjj p^jy ,3-jjis q* _jiH&H *biji j^j 
j^.^1 fJjpJI _-*kt ^UJI J»j . (CREATE REPORT) ^1 1 >j> ^ 
q] ik*.>Lo ^ • OpLU .-jjikll ^^J^Sill J£& ajA#J U 5 ^ Q* ^i &^J Ur*?* 

ajl*j <&j t <J obLJI sjlpLS uAJL q* obLu ^1 obS" ^^juj'j! >j>5sJI *LiJ 
j_jkj ^ UJIjilj J^JI aajb ^Sl^j j^u-axJI ^S UjL^I v^JLUI JyL»JI J=Ji 

,_j JLLoui o}L>vu> obLo ,/>>* ^ JtSJ-*^' '^-* f' Jl »»«** 1 »l J*- 1 * "iLli Jt*j obLJI 

i5- - . - ^ 



*JU ^jJ g^b^j JjjJs ^ AJzj « ^-»>^l j>~~^ i^LH^l JlSjj-L. JU*j 
_i 8j-«^ A3j>» £*>3 Uji^l ^^Jj^xJI »b£jl .J SSj^LJI aJJb ..JuiJL-J ui^*«j . -C^bS" 

^u,lj^ "lip a*^ »!*-. l^*> * -H^ 1 J^A ^ f^^U ^LiJI J* J^l C^ 

. *Ak*ll 5*p>JI ^.I^JI 



2 "\ - V 



J-&JI ***, 2UUJI ftJUfc ^1 i^ll £,*» £-1^ 50* J* tS ^KJj.UaJ ^**-aJ 

jJl^j jJ iUi 1 ^-.j . £*[>*" oa^J (Hierarchical Structure) ^^Jl 

«^*.j sjl* ,> ~.b* JsT ^ ^ ^^ ^^Jl JiiJI ^-j Jp o^l Ub 
jijwj ^JJI g^b^JIj (Calling Program) pUja^l — j >jJj ^Ul g-b^JI 

. (Called Program) AjCc-jLi—l 

. ("V - V) JS^JI>sl 



W 
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•UsJI 



GfJdete.prg 



Cadetw.pry 
I - Adding new data 

l- s?m\\i\$ re pom* 

1» Deleting retards 
i- ExHinri 



:Gadriep^plrf|: 



Making stanges II Print reports 



r 



Caddet.prg 



;DieJieJtei* e cords 



rejKprj} 
Ctaiiv, reports 



}<il)«l.pr^ 



Create Uthti 



( t - v ) J£s, 



J, *_ii"U&, SAp Jl <^»13 ^J Jj j»UaJI 1 ^^Jl J^liJI Ijufc qa ^w^Ijj 
,J»~~j -oli JbJlj, « ^gJI <J Jp ^L ^XJI g-cb^JI jjd ( Cadets. prg) 

. pl^ll ^ ££& 

J$~j 2upy £*U J 5 ^ cr° l*i*iu ^ s^jl-> cJSLbj Jl.lkJI ^Jb <A^j 

jLli-fj >J>Mj p*»-»3 J*«JI O* C***^ ' i *^ * '^ b*A ^J a J' fU*JI j^*-»3 

^ ^ a»J| ^.[^1 JJLiv. Jp ^ JJi 1 US' . sjl* J* ^JuL g.bjj J£ 

• ****»«-*J j] g-b^JI ^-o p>>- ^1 JjJuO Oj^j L>.Up ^>b > JI j^kw ^ ^w^ 
(^ f* k^-^ J^W ^1 SAJ^JI jl U4II JuJl»J SJLJI oJUb ^j -ulSUj aI». 

5 — , g .ii.ll ojjb J4JJL3 ^ Jj t ,„ B II ^obj-JI J_jj»_«jlj 



VA 
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tr ^s J » & b JI » 



<_*J ^1 J JLjjjJI jl o>JUi , !ll £&UI iolS \[r» g-UJl' -LW JL^iJ^ ^M 
(j^UJI l5 --oJJl g-olWI Ji, . (PSEUDOCODE) ojjJa^JI aJUb ,^—Jj « j^l 

: Mt* ^tf oljiwiJI 6Ju* ^^3 (Cadets) UJJL 

. (Environment) g*l3>JI ^ .j*^ -i 

Lail ^yj^jiJI t— «JL»j oLiLJI SJlpIS i aJLa *£& -V 




-ADD NEU NAMES AND ADDRESSES 



Z-PRINI REPORTS OR LABLES 

3-MAKE CHANGES 

4-DELETE NAMES AND ADDRESSES 

5-CHANGE COLOR 

6 -EX IT 



HILIGHT OPTION BV USING t OR * AND PRESS* 1 
OR PRESS APPROPRIATE MENU NUMBER 



( S - A ) J££ 



. »j«>JLyJI jLx^l l 3i»o ^jJI g.li^JI j\ JJi\ Jl g^fcdl -V 

(Exit) £3>JI jl*^l f J* <JI* ^ V**^' ^^1 c^* 1 5ilp ' " A 
. (Exit) g^pJI jLj^I SJU J aLlJI S^JL. Jl £^1 -\ 



^b^JI oU^ *jlj (PSEUDOCODE) *J^" <^!>^l ^^ i>» ^^' ^ 

: ^tS" o[>JU£JI aJJ» ja»u ^111 



AY 
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^-JjJI g>b>*JI 



***************** cadets Information System 

*---------- Set up initial parameters 

SET TALK OFF 
SET STATUS OFF 
SET DEFAULT TO C 

*________ open the database and index files 

USE CADETS INDEX Name 

*---------- Begin loop for main menu 

choice = 

DO WHILE choice <> 5 
CLEAR 

TEXT 

Cadets Information System 

1 - Add new names and addresses 

2 - Print Reports 

3 - Make changes 

4 - Delete names and addresses 

5 - Exit 

ENDTEXT 

*__________ (j e t users choice 

§ 16,20 SAY "Enter choice: " GET choice Picture "9 M ; 

RANGE 1,5 

READ 

*----- Branch to appropriate task orprogram. 
DO CASE 

CASE choice = 1 

SET FORMAT TO Cadets 

APPEND 

AT 
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O-A* E" 11 -^ 



CLOSE FORMAT 
CASE Choice = 2 

DO cadrep 
CASE choice = 3 

DO Cadedit 
CASE choice = 4 

DO Caddel 
ENDCASE 
ENDDO (while choice <>5) 

*------------ Returning to the dot prompt 

SET TALK ON 
SET STATUS ON 
RETURN 

jJi\ ml t 'ULSJI ,> 'jyLiJI ol^kiT j^ ^Uj «^lll (SET TALK ON) jJi\ 
JJUl &> (Status Bar) SJLJI *j*>* ~-«j ^Ul (SET STATUS OFF) 
J_**wj ,^111 (SET DEFAULT TO C) Jft\ ml C ^*b > JI 3uiu pltfl *_&LiJI 
Hjd _>**« j>£»jj • (Default Drive) »jl^JT| ,je>sJI jj» ^JLJI ^j-SJI 

(A) iJ^pjQ (C) hJjtfJI JljU^uiL q^o jjap ^ bj*-j«o -uolljJI q\S lil _ / -»MI 

<*-LJI <_»»> (B) <Jj-»JI jl 

vOJLoj (Cadets. dbf) obLJI SJl*13 uUL ^^ g-bjJI ^ ^lill *>>>J[, 

. (Name.ndx) -d <_*».Lail ,j-^ill 

(jLijju (ENDTEXT) ^b (TEXT) j+% . g-bjJU 4„., lW .,.^Jf <*3UUI ^^^ 
^UupI^ (choice) 5j-£lJJI ^-Jtf-o *UjI ^UjI^SjJI ^LSJLaJI JUIj^ ^ Ji».>Ljj 



AT 
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js"-sl»J' e'^j*" 



(choice) ^^dl ^ v*&±Jj *aij^ai jLxi-l JLJU*»L p£> ^I^JI pj^yJIj 
, GET, READ) jJjl\ Jju*X*l.I -kaOL, . t$lsA J*— c 

^_ t jjJI JjLiOLwl^ . (Picture" 9") IjL* *Iju*x-J J&-j 

lLp jtl .yjV" - I -» »--^-j L»£ . <-3jj-*" o**-tl> aljk-pt JLi-.il (J^ »jl-»«jl»jII 

'..M ^5.1} ..-j *3, . IU-aI .Jp >Ji»JL«lll «*o liJ», . (RANGI 



Ljb (9) *J^JI JjLiOLwl^ . (Picture" 9") BjU* plju*x~.l <fe-»5L. 

jtl -VjV^ - * -» »--^-J L*^ • ^Jj-*" «_>**-tl> aljk-pt JLi-.il (J-^ »Jl-»«JL»JII 

i '^ 0* < 5 ' 1) Ctt< r 3 -* J^" 5 ' J* f* 5 ^' SX* '^J ■ (RANGE 1,5) 

iUjI J* £*IW ^L*-* ^^1 ( D0 CASE) j*i\ .JkjiJ^j ^u^UJI O^L? 

:'^l J>U. J- Jjij . c^All ollLJI SJi*l3 U»Lj S-^UJI JU-afl 2LS.U. ^ 
SET FORMAT TO Cadets 
ju»^j . (APPEND) jJi\ JjjJ> ^ jujl*. Jj>«- <iLi>Lj p^xi^—JJ j**»j L£ 
. [S jJ\ ly. V^ 1 ^ iUJI -^ ^ •** i^J " (CLOSE FORMAT) 

r* l *xJi sdL^i «w« ^ ^J J^j e- 1 ^ 1 a - -*^ ^° 3LJI 9>fJ ^ 

J^IjLpj 5iLi,l Jsl*>L, . (5) jL*si.5LI .AAT...II jLiiJ JUL* ^ L»Ua 
^1 H JUS, S-dL>^JI :ua * JI ^Aj "e*-* (ENDDO) ^1 jly*^ (Comment) 
jJiyJi (ENDIF) _yti\ jl (ENDDO) ^1 J^ <siLi>l j^S-. (Comment) jJ-J 

2U,[Jkj oL«U SJLP Jj*, JO* <-»U- U-sj l^*i- Qjl. \aaj . g-L^JI ^ia ^ 

■ J . ja (ENDDO) <«i (Comment) j-- : .U.?ll j^j •£»— - < ^J i-l^s- 

C . (DO WHILE) 

SET TALK ON 
SET STATUS ON 
RETURN 



M 
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15-*1>" g'kjJI 



j^j-A iau^^-wd _j . (Routine) ^L. ^^i g*b>j 5iLi>l i_JLLrt Jj^>jdl oj**Jl 



Ao 
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jrijUil j?.bjt 



jCL. ,^111 (Cadrep.prg) g-b^JI ^ ^jjteJI g-b* ls ^-U^ll ^ IS 
Iaa, . (2) »3j jLxi.>U p.v^, M ..JI jLiil SJL. ,J l5 ~ t £jl g-b^JI ^ -lJI ^^ixJI 
£^-i ^-jj^jJ oljCi*l ^»LJ J*£j Lp^J o(jQ*l £jL3 (ji,^ pX. V-b^JI 
\S I SI Up Jl>«, ^k, US' . JLu-^JI ^uiliJl Jl ^j-jJI jl JJui ^adl 
cuLksJI ^j3 jxIj, . ^UJI Jp cpU J L&liJI Jp ^fcll ^^ ^LUI 

: ^fltf (PSEUDOCODE) <Jji\ 

: ^l^ vj^l Ji^' & ^^ U^J ^L&LiJI £«-<> - \ 



n 



LECT A REPORT CHOICE 



1 



1 - REPORT 

2 - LABE1S 

3 - RETURN TO MAIN MENU 



ENTER VOUR CH0ICEC1-3) 2 



( \ - \ ) J£a 



jl ^i>idl Ji obUJ? sju>l3 obLj ^w^j. ^bj* VJ JLUI K lil Up JI>*JI 

. 4-^pj j^m J»w«> ^ (Query) i*»»JI 
>±*^JI kyi^Lkil j*-4u"ill £j» mvVi^uJI Jl^w »Xj (Query) ***i*JI jUzi-l jo» 

. -Up 
. iwijlhll Jj^muJI ^ <^»uJI *1j 

. ^ut^ll ^uAJ Jp (JIj£»J j^JI O^UwJI iJlP ^USL». *Sj 

4_*-jJL3 4-Xj iw>jl, kll *-u>^l[ Jp ^jj^o jj^ww ^1 jIp j>**il f J*^ -LIU- j-i 

. _yO-\ U*J (U-JU ,«**• ^A»0w»JII 

• ( Jj>vllJI »3j iJi*-* 9 O* L*«a*-1 __)Li»-'il »Jk»0bwil («ip 
15 JLp 4j^Li. J L&LsJI J* _jjj3ii\ ^j* t-jjlkll bf l3l Up JI>-JI >jlj 

. **JUJI 

. ^jjjlill ^c-LJo fSOj 

. (Rep.prg) g*b,j Jl £>zJI *Sj (Report) ^^23 jLxi-l jo* 

. (Label.prg)g-ob^j Jl ^fcJI *sj (Label) ^^x^> ^jjSj jlsJ>.\ jlIp 



t 

T 



- a 

- "\ 

- V 

- A 

- \ 

-\* 
-\\ 



h\ 
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j^jUsJI g-tajj 



l5 s» LaUJI J* j^L^I u*>* ^ <y (Pause) Ls3> JLftLaJI oULl -tr 

S-jUlS" j^JLj (PSEUDOCODE) ^_J^MI ojj-LiJI *->L£ ^ P t|»^(l J-*J 

********** *Cadrep.prg 

* _ _ Reports program for Cadets Information system. 

*-._-.---- clear screen and ask about report type 

CLEAR 

TEXT 

Select a report type 

1 - Report 

2 - Label 

3 - Return to main menu 

ENDTEXT 

* _ _ _ initialize variable and ask form report type, 
repchoice - 

15,20 SAY "Enter your choice (1-3)" GET repchoice; 

PICTURE "9" RANGE 1,3 
READ 

*------- if return chosen, return to main menu. 

IF repchoice = 3 

RETURN 
ENDIF 

*___-_-_ Ask about query. 

CLEAR 

qchoice = "A" 

@ 10,16 SAY "Do you want (A) 11 records, or a (Q)uery?"; 

GET qchoice PICTURE " 1 " 
READ 

\» 
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jijUsJI g-bn 



*-______ making Query if requested 

SET EXACT OFF 

IF qchoice - "Q" 

SET EXACT OFF 

qname - SPACE (8) 

@ 16,16 SAY "Enter name to display" GET qname 

READ 

qname = UPPER ( TRIM ( qname ) ) 

SEEK qname 

recnumb = RECNO() 

COUNT WHILE UPPER (name) = qname TO howmany 



*----- if the name is not found, warn the user 
IF howmany = 

@ 19,15 SAY "There is no & qname" 

? CHR (7) 

WAIT "Press any key to return to main menu" 

RETURN 
ENDIF (howmany = 0) 

* - - - - IF there is more than one record having the 

* _ _ _ _ same name , they are displayed to the user . 
IF howmany > 1 

CLEAR 

GO TOP 

SEEK qname 

DISPLAY name, class WHILE UPPER (name) - qname 

@ ROW ()+2, 15 SAY "which one do you want"; 

GET recnumb 

READ 

GOTO recnumb 
ELSE 

SET FILTER TO UPPER (name) = qname 
ENDIF (howmany>l) 
ENDIF (qchoice = Q) 



w 
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j^UsJI j^bji 



*------- Ask about printer 

toprint = "N" 

CLEAR 

§ 10,5 SAY "Send records to printer? Y/N" GET toprint; 

PICTURE "!" 

READ 

*----- Displaying the report 
IF toprint = "Y" 

SET DEVICE TO PRINT 
ELSE 

SET DEVICE TO SCREEN 
ENDIF 
DO CASE 

CASE repchoice - 1 
DO rep 

CASE repchoice = 2 
DO label 
ENDCASE 

■*----- if printer was not selected , pause 
*----- before returning to menu 
IF toprint <> "Y" 
§ 24,1 CLEAR 

WAIT "press any key to return to menu ..." 
ENDIF 
*_____ when report is done, close filter, 
*----- and return to main menu 
SET FILTER TO 
RETURN 

r^^i J/ll *>»JI 1ju* ** • £-1^1 f—l <i^ s^LJL^ Ij^j g-b>J[, 

_j^izJ\ J**o IIaj . <Jj jsuo JUjSJI cHJ^b (repchoice) SjilUI ^jcu 
jLxi.'il JUo"i (prompt) .ji*ol»JLI SJLy ^j* ^ jJ . (numeric) Us.** 
Sj^JI »Ia^jlJ j»jOj . (repchoice) j_judl ^ -ult^j v> „l U, . H 

■^JuJI J.VA.,7 j LS . olJu>1 JUol ^ r JLiOL-«JI ^L^ (PICTURE"9"- 

^ Ju>j*il -*- : -■ JU»ol < .j ^JJI pLJJfl ^Ju. Aji*jd (RANGE 1,3 

AT 
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jiJSsM g.bjj 



: SJbJI j^L-JI l5 JU ,jj-Xj>wj *>>JI llftj ( T ) 

„_____ initialize variable and ask for report type 

repchoice = 

15,20 SAY "Enter your choice (1-3)" ; 

GET rephoice PICTURE "9" RANGE l f 3 

READ 

U^jJI *J__C j_Sj ^Lw-L-JI fjaj^ (J* _jjH\ JjJs Ju>j loJLU <C<1 <L__OLo t-*?^ 

. JUJI JLjl ^ >.MI fcb-T JU&.M.I3 _jJ_*JI olp ^ ( ; ) 

: <JLdl jjJauuJI ^-U _j>->o _jAj . (3) jkS^II >j_i___il 

IF repchoice = 3 

RETURN 
ENDIF 

^_i i— 8_Ltt.ll c_^L_»__ £«-»• _£>*■ ^SLrt O - * '-"' ^JLiw-ll JL*J A^Lh" O-^Lj 

: SJUI JL> J_*JI _^> q>&j p>?JI IjlAj . (qchoice) j*a~1I ^ »j_£_u_II 

qchoice = "A" 

@ 10,16 SAY "Do you want (A) 11 records, or a(Q)uery?" ; 

GET qchoice PICTURE "1" 

READ 

jLj__I £JI_- j-3 »jL>__vil aJUwJu ^_JI j_*u^fi ^p i_*_hJL »jiu ,ji_*UJI *y*J\j 
■-JlUI ,_*_yi JL*_V »jl_^__JLJ ULuij ^^p j-2j 2ULJI 6Jla ^j . (Q) -i^-JI 
^-Jl j-w'ill Ijl* Jjji>J p^ . (qname) ^**ill .J j_*_"i(l I la _>->>>J ^ <-*■ «_->«JI 

JjjJo _^P SJ_I>JI oliLJI £_ui fkXj US' . (UPPER) *JljJI JjjJa _^P B^w-T Ojy-v 

. ^I _,* jtSl Jl juwlj vJ^. JU-_I .Jii___JU _^_»j, . (TRIM) SJIjJI 

J^_._aJI j_Xj _5JJI _L»«JI |Oj _^j>»J j~3 (SEEK) ^^1 5-L^l^j cicxJI *Zjj 
*jJH\ ljm> ,J _J^_ij (^xJI o^U-JI _ju* __,_»_- jxZj |_j (recnumb) ^J-dl ^ aJI 
. (howmany) _^*xil ^ _JuJI IJl* _>j>»%3j < <JU-_I f___i _$UI ui^sJI jl 



\r 
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ji)l** e-bjj 



J ^Si\ c - !r i JLijUll qj^J ^i* (SET EXACT OFF) ^Ji\ pJuSw-j, 
o^a-j !£*£-* [^ • 3JLl£ ^** (name) **u^ll Jl>- q*^ 4JU-0I «jl» ^JJI J^>JI 
(Default) ijSJuIl 2^11 o' t*j • £^1 -k^ (J* 2 *^ f — «•* Jb' cs 4 ^ju^' 

*J jlS aJ ij cj}*t^ g- 1 ^ ^ «*l^ J*^ ^ ^ (SET EXACT OFF) 



: 2ULJI j^kwJI ^ e>»JI IJla q>&jj 

IF qchoice - "Q» 
SET EXACT OFF 
qname = SPACE (8) 

@ 16,16 SAY "Enter name to display" GET qname 
READ 

qname = UPPER (TRIM (qname) ) 
SEEK qname 
recnumb = RECNO() 
COUNT WHILE UPPER (name) = qname TO howmany 

CHR(7) -JloJI plj^ju-l J^>Lj US' . **lj*J| *].,LJ| Ji.b ^jl^JI <li^l 
: 5CJUI ^i^k-JI Jp p_>>JI IJia ^^^oj • ,jl^1 5^ V-^l <-*Jl5JI ^1 

IF howmany = 

@ 19,15 SAY "There is no & qname" 

? CHR (7) 

WAIT "Press any key to return to main menu 

RETURN 
ENDIF (howmany = 0) 

15 -XJI *.L*u"i!Li ,joUJI ^[jAJI J-yaiil^ a^i\ i£)llLj ,ji>_>*J j»^5j £jLJI P>>J[j 
S^o 4-ljLaJLu.l jvJJ JLJ lioJI jj J 'JslX^ . O^UvJI 6JU» £-0 V _ > ikll j^L 

<»uaj J^so Jii qjSL) (Record Pointer) o>L>«JI _^>o Ji JJhj < o^li 

^Sj, . J^yJI j5*o J^, Jj] Jl ^Llli S^ OaUl al^jj (COUNT) ^Ji\ JjiAftJ 

^ A.UI Ijlo ^ (GO TOP) _^l £j> ^p JUI Jjl Jl _^->ll jlLpj ^1 



U 
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jjj\SsH g-bjj 




(howmany) ^^dl Ji ^1 -Uj-£JI jlao jl*[, J^ J* j>**JI *JL- ^ 
ftl* ^ . (howmany>l) Js^iJI j£>j .jlp KJU ^ ^1 . ( * ) <uu*3 q^Sj 
. Ja^iJI v 3a»o ^JJI J?«JI J* J>^>JJ (Filter) ^.^o Jjl>olJ JL <IUJI 

IF howmany > 1 

CLEAR 

GO TOP 

SEEK qname 

DISPLAY name, class WHILE UPPER (name) = qname 

§ ROW()+2,15 SAY "which one do you want"; 

GET recnumb 

READ 

GOTO recnumb 
ELSE 

SET FILTER TO UPPER(name) = qname 
ENDIF (howmany>l) 
ENDIF (qchoice = Q) 

t5> i»oj . (toprint) ^*iiJI ,J j»a±c^I 4jUI ^j>ia ^ . ^.LiJI J* 

toprint = "N" 
CLEAR 

@ 10,5 SAY "Send records to printer? Y/N" GET toprint; 

PICTURE " I » 

READ 

jLjA.\ +^ ^UJI J JULUI Jl ^jj-fcdl -u^j Jl ^^ ^Ul *>>Jl, 

^ (Y) jLx^l Ijjk £ I5U . (toprint) ^js!I ^ a^l j,jl>ju4I 



\o 
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JLjiU *SJ, *3 . t^LJI Jl HiT-J 2 f^i. -iU-a j-** cA '■*!> « ^ajUJI Jl <tt?rj3 

jl» ' -^ (repchoice) .j^-asII aA LoJlJLp ( re P«P r 9) g^^W 

j_Jtdl a^SLj Ljijlp ( label. prg) gAi^JI JL*iA3 j^-Xj US" . ( 1 ) pi^JI 

": SJlxJI ^Jk*JI Jp ^>i»-> o*^ lJJ»j • (2) fSjl Jp Lj>^>v. (repchoice) 



IF toprint = "Y" 

SET DEVICE TO PRINT 
ELSE 

SET DEVICE TO SCREEN 
ENDIF 
DOCASE 

CASE repchoice = 1 
DO rep 

CASE repchoice = 2 
DO label 
ENDCASE 



(S i». (Pause) \sly JLaLsJI ^ _jj^dl oLSjI «d>U. ^ «jo ^Ul o^L? 

: *JlzJI ^jln-^ll ^ *>>JI iJun ^jS^O) • <ui^ 8>* .^jjUxJI 

IF toprint <> "Y" 

@ 24,1 CLEAR 

WAIT "Press any key to return to menu" 
ENDIF 

wJJUl Ayu, l5 x»- (Filter) ^A^JI ■pUI <J5Li- ^ ^ ^i* (jaLJI p>>Jjj 
. (RETURN) j^l j»Ijl>^u,L <*^J\ <jlaJI Jl ifJjh jkXj |k3 . Jj*!ll <cdU Jl 

(rep) ^jaLk^jJI > - ^ 

»|jLi^Lu>L jijSzR p^^aS a^j a^ . >jj-5sJI ^j-Sli. j^M^sJ ^i (Assistant 
c^ <jI$i ^ UjJ^j jCuj SjjI^j SiL- Jj-L (@. /.SAY) ^l^ll ^ JUj*? 

lJUkj . ^Ui >Ju>JuJI ^JLL SJL. ^ l^llC .^JjUlll (jSp^jJ JJij . (EOF) U>±. 



M 
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j^Usll gJi* 



DO WHILE .NOT. EOF() 




CLEAR 










e 


2, 2 


SAY 


"Cadet name :" 




e 


2,37 


SAY 


NAME 




@ 


3, 2 


SAY 


"CLASS :■ 




§ 


3,38 


SAY 


CLASS 




e 


4, 2 


SAY 


"ADDRESS :" 




§ 


4,38 


SAY 


ADDRESS 




§ 


5, 2 


SAY 


"Secondary school average :" 




e 


5,38 


SAY 


SECJSCHOOL 




§ 


6, 2 


SAY 


"Date of entering the institute 


. ii 

• 


§ 


6,38 


SAY 


DT_ENT 




§ 


7, 2 


SAY 


"Telephone no : " 




§ 


7,38 


SAY 


T_NO 




@ 


8, 2 


SAY 


"Blood Type:" 




e 


8,32 


SAY 


BLOOD 




§ 


9, 2 


SAY 


"Religion : " 




@ 


9,38 


SAY 


RELIGION 




@ 


10, 2 


SAY 


"Nationality :" 




§ 


10,38 


SAY 


NATION 




e 


11, 2 


SAY 


"Birth Date :" 




@ 


11,38 


SAY 


B_DATE 




§ 


12, 2 


SAY 


"Birth place :" 




@ 


12,38 


SAY 


B_PLACE 




@ 


13, 2 


SAY 


"Father name:" 




§ 


13,38 


SAY 


FATH_NAME 




8 


14, 2 


SAY 


"Mother name:" 




e 


14,38 


SAY 


MOTH-NAME 




§ 


15, 2 


SAY 


"Father salary:" 




§ 


15,38 


SAY 


F_SALARY 




§ 


16, 2 


SAY 


"Father Job:" 




@ 


16,38 


SAY 


F_JOB 




€ 


17, 2 


SAY 


"Number of brothers : " 




§ 


17,38 


SAY 


NO_BROTHER 




§ 


18, 2 


SAY 


"Date of getting Sec-School:" 




e 


18,38 


SAY 


DATE_SEC 




§ 


19, 2 


SAY 


"Hobbies" 




@ 


19,38 


SAY 


HOBBIES 





\v 
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@ 20, 2 SAY "Nearest relatives" 
@ 20,38 SAY N_RELATIVE 

WAIT "Press any key to continue" 

CLEAR " 

@ 1,40 SAY "Notes" 

DISPLAY OFF NOTES 

* 

* As k the user if he want to stop displaying 

KEYPRESS = 
@ 22,12 SAY "Press any key to continue or (Q) to stop 
DO WHILE KEYPRESS = 

KEYPRESS = INKEY() 
ENDDO (KEYPRESS) 
IF KEYPRESS = 113 .OR. KEYPRESS = 81 

CLEAR 

RETURN 
ENDIF 
SKIP 
ENDDO (while not EOF) 

Lo^ UJLi" ^1 ob£ *jlj ^LIJJ . J-2»JI I jut j^—l ^bj-p M^\j-i 
Jil-M. US' . JJbJI Ijjb oLy^v. j*y> 4zL-,[^ *xi ^Ul jJa-Jlj . (string) 
^ jjbJI oLy^voj J£>JI pJ 1 (@) «-i>»JI Ja ^Jl (X,Y) ,=,LJIjl*>II <>. 
JL&liJI J* ^^ J»— ^j* JiA*i JJJJ . 2LaLiJI J* **- \j Ja^ > l5 -U L$-iy> 

. >Ll« ( r - \ ) JSliJL a^-^j-JI *AlaJI ^ki 

^Ui^ . <Js^-. *Al& ^ (Notes) oLb^Mil JJi»- ^^ ^ -b*^i ^ 

»j_S_j (KEYPRESS) j-JUdll p I$jIj 1jl*j ^JJI ^-oLs^-JI ^ ^LJI O^b 

^JJI c UiIL ^.LiJI Sj-i-UI jLiil ,y (INKEY() ) JUIoJI JjuiO-J iu-Mjj 
IJlA ^U (113) J (81) ^jL—3 B>iji 6JJb oil5T lili . >.V-^r^II -uU JaJi 



\A 
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SjjJI ^U (q) »-lZJU J (Q) p-lzio Jp JaJLi A3 >Jl££«il q] ^^iju 



-Ixi. jl (Q) p-LzA- Jp 
. JUI J^-JI ^bU ^j* jl ^^ Iaa U 



J c lxi« 



CADET NO 


69G0 


NAME 


MOHAMED ALY SALEM 


CLASS 


55P 


DATE OF ENTERING AIR ACADEMY 


09/01/85 


BLOOD CLASS 


A 


ADDRESS 


13 -ABBAS ELAKKAD 


TELEPHONE NO 


2603556 


RELIGION 


MUSLIM 


NATIONALITY 


EGYPTIAN 


HOBBIES 


FOOTBALL 


BIRTH DATE 


01/22/67 


BIRTH PLACE 


TANTA 


SECONDARY SCHOOL AVERAGE 


70.00 


DATE OF GETTING SECONDARY SCHOOL 


1985 


FATHER NAME 


ALY SALEM 


MOTHER NAME 


FATMA MAHMOUD 


FATHER SALARY 


600 


NOMBER OF BROTHERS 


5 



( T - \ ) JlS, 



(label) gAL\jJI T - *\ 

I £yt> )lju Sj^a£>JI ^JjLSxJI ( XdL»^a.d g^b^JI lJU* £jLz£ *3Li 

jjLJI (rep) g-bj-JI JjUj yi>j . (Assistant) jlpLJI 

: ^i^ ^bj l^^i Q^i g*b^JI _^jJa*u AjIxSj ,<«-£& «-9_j-vj 



* label. prg 

* _ _ _ _ program for making labels 
R = 2 

GO TOP 

DO WHILE .NOT. EOF() 



^Li^ r l 



\r 
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§ R,2 SAY CADET_NO 

@ R+1,2 SAY NAME 

@ R+2,2 SAY GRL_SECT 

@ R+3,2 SAY ADDRESS 

@ 17,2 SAY "Press any key to continue or + ; 

"(Q) to stop" 

KEYPRESS = 

DO WHILE KEYPRESS - 
KEYPRESS - 

ENDDO (KEYPRESS) 

IF KEYPRESS = 113 .OK. KEYPRESS = 81 
RETURN 

ENDIF 

CLEAR 

SKIP 

? 
ENDDO 
RETURN 
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' : ^Htf '(PSEUDOCODE) *J^I ol^kiJI Lt£ *J ^ SaUtf, 
. 0>L>«JI JjJk«Si *i>L>& %SL>- £Jj& jCLj - \ 

. i_i_^LL1I aaojII j^jjp i±*>lJI ajLj - a 

: ^K g.b^JI ^ ^ pi 
******* Cadedit.prg 
* Lookup and edit data in the cadets database 

*------ Set up a loop for editing records 

entering = .T. 
DO WHILE entering 

SET EXACT OFF 

GO TOP 

*------ Ask for name of person to lookup 

CLEAR 

lookup - SPACE (4) 

@ 10,12 SAY " Enter name of person to edit" 

@ 12,12 SAY "or just press Return to exit" ; 

GET lookup 

READ 

*_____ if no name entered , skip all 
*----.- commands between here and enddo 
IF lookup - " " 
entering = .F. 
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LOOP 
ENDIF 

*_____ convert lookup to uppercase to 
*____- match index file, and trim it 
lookup = UPPER (TRIM (lookup) ) 

SEEK lookup 

mrecord - RECNO() 

*----- count how many there are 

COUNT WHILE UPPER (NAME) = lookup TO howmany 

IF howmany = 

@ 20,10 SAY "There is no & lookup" 

§ 22,10 SAY "press any key to try again" 

? CHR(7) 

WAIT 

mrecord = 
ENDIF (howmany = 0) 

*----- if more than one record has that 
*----- name, get more information 
IF howmany > 1 

CLEAR 

mrecord = 

SEEK lookup 

DISPLAY NAME, CLASS WHILE UPPER (NAME) = lookup 

@ ROW()+3,10 SAY "Edit which record # ■?" GET ; 

mrecord PICTURE "9999" 

READ 
ENDIF 

*__-___ if there is a record number greater 
*------ than zero, edit the record 

IF mrecord > 

CLEAR 

GOTO mrecord 

SET FORMAT TO cadets 

READ 

CLOSE FORMAT 
ENDIF 
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ENDDO (WHILE entering) 
RETURN 



S_3JL>. tfjjZi »Jj ivJ . aLuJLsT -u&Jkju g-b^JI j^u.Lj g-b^JI Ijl* Ijuj^ 
a_,IjlJI ^J axJ" gl a*>j . (entering) ^akUl ^asII Jp a-x«a SjjL^ 
fJU f^ . 8j-t jj ^L^JI ^»JI *-*"» *2j ^UJJ « £*»«* <^1 (.T.) ^^ 
juJlLj jl^z-H (entering) ^ikdl ^JUdll *~3 ^4 ttUJI Js-b ^ *Ss^i\ 

. UUU3 uilSjl jf 20LJI 



: SJllJI _}>Ja-JI ^ Qj&i »>>JI I^Aj 



entering = .T. 
DO WHILE entering 

<ll »jla&J» Ji-Ju ^ ^Uij . ^* (4) <ijL qjZj ^jJI (lookup) 

JLi-^1 »Jl>JU-JU 3UL.J ^ij* jk5j *3 . -Up >i*»«JI sjjLJall pu.^11 ^ J^ll ui^yJI 

p>bJI lJut t^jS^iJ} . (lookup) ^^axII .J oj>>JI <»iA crti*" 3 -* *i>^l >-»j>»JI 

: SJUI ^^LJI J* 

CLEAR 

lookup - SPACE (4) 

§ 10,12 SAY " Enter name of person to edit" 

@ 12,12 SAY "or just press Return to exit" ; 

GET lookup 

READ 




IF lookup «= " 
entering = .F. 
LOOP 
ENDIF 



\*o 
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J^U- pAi^,u II I3JU.JL1 ^SJI i_3jj^JI Q» v£**«JI f>uL> «-ob^JI Q* *j\ji\ ^_^>JI j-9j 

g-ob^JI J>U- q-o ^^^ill ^iL «xs ■^j-ui ol <k».5Lo «ji . (name) ^^1 J-*»- 

Sj-*-*-S ij^-PO f U— i ill j^-o-IaSj 6*M 6^l£jl aJ JlJ jjjj^giJI lJUb £jl US . ^wuJ^JI 

aJL» US* . *x*£~A\ aJU-ju ^JJI ^"ill J* <aSjLL-o J^**j ,^x»- (Upercase) 
JU-.il U JJU . Sj-«S *Jj>»- Jl Liul »jl>j^JI l$U-Ju _ill cJj^jJI J^»-=J 
^1 US . tjj^l 6Ju» ^ ,**>*JI ^ ^^ Sj*a-aJI jl S^Sji wJjjjhJJ >A3wt.^.tl 
^1 Oj^JI Jl*j Sij^.j-0 oliU-o ^1 *LJI Jl ^5^>j (TRIM) "UIjJI »Iju*JL*uI 
^b ^-o «j>£JI (^jj Mi- xa~\j Jp. JU-al -d ^*sj llftj . >Ji»0Lwil U\JU-jl_j 

. iljl Jp UUI «BliII oliU-JI 

: -LIUII jj^L^JI Jp ^_>i>o *>>JI I JlAj 

lookup = UPPER (TRIM (lookup)) 
SEEK lookup 
mrecord - RECNO() 

o>L»«JI j-&yj> «-*»-_5-3 4-XiJaj (SEEK) j_o^!l ^1 s u. ^M „ -^-j 

^jJLJI jJa*JI ^j^ia ^ »^j US . ujjJJaJI J»«JI ,^1 (Record Pointer) 
J-4— -j ^ JJij . (mrecord) S^SlJJI ^ix* ^ J-*— Jl I a* j»Jj o-^H*** ^ 

. JUi Juu J^wJI lJUb Jl b-jLftJJI 

a_w^ll Ja^ii ■ja^o ^_xJI o>U*JI oop >_iU>. *ij «b^JI Q* (jju^UJI p_y>JI .Jj_} 
JJL*. ^ ^-^^ .-AJUI 1 ^*.j, . (howmany) jJoi\ ^ ajuJI Ijia ^jjSOj 
(FOR) ^ "ilju &»J\ ^ (WHILE) ^ljuiOLM.1 J-iJb JLJ « (name) ^ll 
^^ujI ci*^>«JI q->Sj ^Lljjj . Joj-iJI l 3ii>x3 jjJI o>L>vuJI « : **j>04 »_jij <ol *Aujj^- 

". (WHILE) SJL-Jj.. 

j : . ;..".» Jl ^ -ul£,_>j j^j ^JJI j>juJI jUii-U ^-oUj-JI »jjj Alh juu 
Iji-j-j J-^-«» jLj »-'hi^ *^ (5^ 'J 1 -* o^ 1>**^ aJuJI lJUb ^15" lili . (howmany) 
L4J&U. >j^ (^xJlj « JLwil ^UUjjJI j^kj JJjJj . -ju>a*J.I L§JU.^I ,^11 tijjjJL 
. («&)_ 1 plil »|jLiou«L (lookup) ^4*^' i5* pA»£«il t^U-J yjXil Oj^^JI JuUS 
J^aJLAJ (^Jl ^i^J ^1 (CHR(7) ) *JIjlJI Jjj-L. ^ »Ju>^-JI _^Ju>a |k^j US 

: <JbJI jjJa-JI j^U (^^-i^vi 9>>JI IJ*j*_5 • ^>>JI 

IF howmany = 

@ 20,10 SAY "There is no & lookup" 

@ 22,10 SAY "press any key to try again" 

? CHR(7) 

WAIT 



\»1 
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mrecord = 
ENDIF (howmany = 0) 

jj-* j-?- & j& **w &» *** ^ ir L, ,t ^ ^V P*f ^ * n 

g^b^JI r yb <JLJI *Ju* ^1 . ( \ ) ,>• -k^ (howmany) Ji J\ < J=-^JI 

: <Ul*JI ^hui II ^^p 

IF howmany > 1 

CLEAR 

mrecord — 

SEEK lookup 

DISPLAY NAME , CLASS WHILE UPPER (NAME) - lookup 

@ ROW ()+3, 10 SAY "Edit which record # ?" ; 

GET mrecord PICTURE "9999" 

READ 
ENDIF 

«jJL- q* j& tf lili (mrecord) ^scd\ jL^I -jl. #LJI o^ 1 ^j 
J^l Js^iJI J>U- o- »!>- IJLfUJI o)U-JI J^l al*jl fJ ol ^ Tajj, U 
J>U a- jl (howmany > 1) ^lUJI J.^1 J>U» cr« J 1 (howmany - 0) 
lidt ^Jl ujUUI jkIj AIJJ . (howmany = 1) ^j V^ 1 s^*--^ 1 JL,Ls>JI 
(Format' file) J*££sJI UUL. gd >xj a3 • (GOTO) ^l pl^x^L J^-JI 

. nob b- ■Lla.TirLaL. <$&\ /^ r 3 « hA 11 ^^ J 14 -* 1 f-^—U c^ 

' ' : <JWI ^LJI Jp ^ji^o o^' \±*j 
IF mrecord > 

CLEAR 

GOTO mrecord 

SET FORMAT TO cadets 

READ 

CLOSE FORMAT 
ENDIF 

ENDDO (WHILE entering) 
RETURN 



1*V 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 
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. Lj-^ w *j o>u«- sop J j>— ji >ju>ol-ji j^j j* £«ij^Ji \±* ^l^j 

: ^tf ^2 ^q^JI IJi^J (PSEUDOCODE) SJ^II oj^kiJjj 

. -o ^UJI J*v«JI j*— • ij^ikll fJi\ q* J!>JI *sj - r 

. <^J\ WtiJI JI* £*»^l j^» « f-J v$l JU-ol j»JkP JiiP - T 

. (Uppercase) l^S %Jjj»- JI »*^ll JjpJ j*Sj - i 

. ^^Ikll *+A\ &* &a*A\ *Sj - o 

. fyydl ^uis J*> •e^J J^ 1 «aaL»«JI >*.x* ^*~>- p*a - "* 

^l^J pjLj « ^-fll IJu» J* &x»>i ji~ JJ J» ai*-JI r ^ ^U ^ - V 

• _j^l I o u>l (IjVjlj ,5^*- » jh*A w. j u 

o>U-JI 6Ju» ^^ j>^j « f-«^l tr*i J* 1 ti^*" 3 *=^»— SAp i_j*-_j aJU- ,y - A 

. J*«JI jJ, 43^ q* Ua»1 jL^ pAi^wil J* 
a- jl^jII Sjb 8>. pJuiJL«JI JI3— jCb « ujjikll J*«JI JI Jj—>ll aia - \ 

J^JI life J* 2u5U ^j jxSj J»mJI £«~. ^ <U*j to" f"***^ •&* •***■ "' * 

. 4>*uJ, |jU£«3 

(Marked for deletion) ^~JI oDU l$J*> o>Uvw JUa ^l£ liU> 

: ^fll l^ixj [is t 

. l$JU 0L0U £~oj *3 jjdl odU«JI obLa jjo^p *£j - 

. (Permanently) 

7 .-~. a JI 6\LLpI * i "J O^L>w*JI fti-ft (J&JU £L>»jJLw»l j» y V - -V > X ..... tl ijjl lil — 

. jjAj > wmJI aJJk Jl»-T 8.aLuLu»j 
ajub >ui jJLi a*3UI cu5L>wyJI »bo ^s o*ij ^ fJ^**^! <«Uj U«xi» — 

. (Permanently) Lsla U«— « »n>U«JI 



IT 



U 



o5Uw £. 2UUJI jljii 4^ l5 ^ j>&JilJ c-ilj A_^UJI JU3UJI a> o 

. 4,,,,/i^JI 5U5UJI JI £,y»jJI pSj f^U^^I A«J - \Q 
~Ju ^JJI --b-JI SjU£ ^ , (PSEUDOCODE) ^LJj^l o^jJaSJI ol^ Juu 



\n 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



c— " Er b -* 



*----- Set up loop for deleting records . 
entering = .T. 
DO WHILE entering 

*_______ As]c for name of person to lookup 

CLEAR 

lookup = SPACE (4) 

@ 10,12 SAY "Enter name of person to delete" 

@ 12,12 SAY "or just press return to exit" 

GET lookup 

READ 

*----- If no name entered , skip all 

*_____ commands between here and Enddo 

IF lookup = " " 
entering = .F. 
LOOP 

ENDIF (lookup = " ») 

* _____ convert lookup to uppercase to match 

* _____ index file 
lookup = UPPER (lookup) 

* _ _ _ _ Tr y to find requested name, and 
*_____ remember record number 

SEEK lookup 
mrecord = RECNO() 

* ----- Count howmany there are 

COUNT WHILE UPPER (NAME) - lookup TO howmany 

* - - - If no record has that name , warn the user 
*----- to try again 

IF howmany = 

@ 20,10 SAY "There is no & lookup" 

@ 22,10 SAY "press a key to try again" 

? CHR(7) 

WAIT " " 

mrecord = 
ENDIF (howmany = 0) 

— 
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*__-.-.- if more than one record has that name 
*____- display records to the user. 
IF homany > 1 

CLEAR 

mrecord = 

SEEK lookup 

LIST NAME , CLASS WHILE UPPER (NAME) = lookup ; 

@ ROW ()+3, 10 SAY "Delete which one?" 
GET mrecord PICTURE "9999" 

READ 
ENDIF 



* _ _ - - -if the value of (mrecord) greater than 
*___-- zero double check then delete 
IF mrecord > 

GOTO mrecord 

CLEAR 

DISPLAY NAME , CLASS 

? 

WAIT "Delete this record? (Y/N)" TO answer 

* - If answer is yes, mark record for deletion 
IF UPPER(answer) = "Y" 

DELETE RECORD mrecord 

ENDIF (answer) 
ENDIF (mrecord > 0) 
ENDDO (while entering) 

* - Before exiting , verify deletion and pack 
COUNT FOR DELETED () TO nodels 

oktopack = "N" 

DO WHILE oktopack = "N" .AND. nodels > 

CLEAR 

? "Records to be deleted . . " 

•? 

DISPLAY NAME , CLASS FOR DELETED () 

@ 23,1 SAY "Delete all these? (Y/N)" ; 

_ — 
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GET oktopack PICTURE " ! " 
READ 
IF oktopack < > "Y" 

* - if not ok to pack , recall a record 
delrec = 

@ 23,1 SAY "Recall which one"; 

GET delrec PICTURE "9999 
READ 

* - if record number entered and record 

* - is indeed deleted, recall it 
IF delrec > 

GOTO delrec 
IF DELETED () 

RECALL RECORD delrec 
nodels = nodels -1 
ENDIF 
ENDIF 
ELSE 

*____ if ok to pack , pack and show 
*_____ the process of packing 



SET TALK ON 

PACK 

SET TALK OFF 
ENDIF (oktopack) 
ENDDO (oktopack) 
RETURN 



j»^**X3 £-«JI <J*p_j . J*«JI lift £~^> JJi Juu p-objJI ^ uj^JLUI j^j 

Tu — 
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et^ji 



J-»~JI jjb J*«JI 11a Jl L>L» .xfkj ^^ jjji^lj ^Lu^l ^ J*-Lh> sjl* 



^J <^jju &~> ol <*~* ^^a Sal»l Jl E b^| p.b^JI ^ J^ll *>fJU 

• Ji>"*M g°^X> £*»wa£j| g*bjJ 
_jAj . A»v«-o t^ijLUI J^«~JI *3j Jl J^o^ll JJu ljUJ j_5.HI _^A JUJL»JI *>>Jlj 

: SJUI ^j^L-JI ^Ujk^oj 1ji*j ^JJI *j>>JI 

*----- If the value of (mrecord) greater than zero, 
*----- double check then delete 
IF mrecord > 

GOTO mrecord 

CLEAR 

DISPLAY NAME , CLASS 
•? 

WAIT "Delete this record? (Y/N) " TO answer 

* - - If answer is yes, mark record for deletion 

IF UPPER (answer) = "Y" 

DELETE RECORD mrecord 

ENDIF (answer) 
ENDIF (mrecord > 0) 
ENDDO (while entering) 



(WHILE entering) ^Ji\ *-j-,ljj£dl UL>JI J>U. ^ ».i *.?... .11 Cr £oJ i) 
\A& J*«*JI oblu (ji>_>^ *ij \y> J£ ^>j . Lfr -^ ^- i i_i^JLLo di>l»uu sjl*- juJl>j 

£+oj Jl 0I4JI ,^9 ^^>J <U**JI .si*, . h _t > ikll J^-JI >» llA jl JlSIzj ^jJLa- 

: aJIxJI ^^JL-JI ^ ^fcj 5jjl^S3dl <JUJI al*j . ,idU«JI 

* Before exiting , verify deletion and pack 

COUNT FOR DELETED () TO nodels 
oktopack = "N" 

— 
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DO WHILE oktopack = "N" .AND. nodels > 
CLEAR 
? "Records to be deleted . . " 

• 

DISPLAY NAME , CLASS FOR DELETED () 
@ 23,1 SAY "Delete all these? (Y/N) n ; 

GET oktopack PICTURE " ! " 
READ 
IF oktopack < > "Y" 

*_____ if n ot ok to pack , recall a record 

delrec = 

@ 23,1 SAY "Recall which one (by record#) M ; 

GET delrec PICTURE "9999" 
READ 

* - - - - -if record number entered and record is 
*_____ indeed deleted, recall it 
IF Delrec > 
GOTO delrec 
IF DELETED () 

RECALL RECORD delrec 
nodels = nodels -1 
ENDIF 
ENDIF 
ELSE 

*----- if ok to pack , pack and show 

*__--- the process of packing 

SET TALK ON 

PACK 

SET TALK OFF 
ENDIF (oktopack) 
ENDDO (oktopack) 
RETURN 

LftJ^ CiU>U £±j ^ ^1 o>UvJI aJ* ^U»o ]**3 ^L-JI cj* iip^l oAAj 

m 
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j OU .-ll £— g>bri 



^*^ . (nodels) j-JLill ,J aJ-JI lift t^j^Jj (COUNT) ^1 JjAiwl* 
plij'il o-L- JUa c.,.m,I ^1 « UT .^dl *LuL pjb (COUNT) J-.MI ! JLLaOL. 
*ULsl UJLJ Jsl^Mj, <i,L^JI SSioJI IjlJ j^ • -uIju&jlJ J*5 (nodels) _- n Judl 
UJL>JI , V ft" 1jl*j ^- JJij ("N") S^JiJI ojlk*^ (oktopack) _ > I»zll 
^ jJJi a*j >ju-vx w il UU-ju ^1 ^UjSJI qs. jJiJI ^J^su SJLa-lj Sj-« SjjI^SL-iJI 

_j_ft Jj^l . , ;r _Jo J _Ji. ( -±e ^Lr^il A-SiaJI 1*&L3 uiJ^Xjj . ^-*— *Sll ll_ft 

_^> ^Wl ijAjl, . UjJI ^J U--^*- ^ "ll_»j (oktopack = »N») 
J lil Ll . IfcJU oLOU ^j »j o>L>«- JLa ^1 (^Liu iJLftj (nodels > 0) 

SJUJI 6Ju» ^jj . -uJU j^lJI *Jj J <dU-al »j ^JJI a-u^I 1 J t 4j>v«i *jIjlJI 
". wJjl JUJslSui Jl ^lI^JI ^uj *djL&JI <SJL>JI iJLa"^ 

jj>- j^kT US' . l^L oL>U pbj |0 ,^11 o>uLjL «-»UJI (CLASS) O^Jjj 

liLS . LftjL»>T SdU^wil Ju^J »1 4K o)L>*«JI ftlft «t*M<o Ju^J ^l£ lil a.JL-^.tw.oil 

(IF oktopack <> "Y") jJi\ £* i^-jil Ja>-iJI U Laju.1 SaUx-,1 alj 
aj^j ^111 J>«JI jkSj qp |»^>ou»«JJ ^i-T Jj>— j^^b Jl ^i-^j ll*j . j-S-skj^j 

. o5Uw«JI a.13^1 Igfj 5-ulLiJI Jp &BJJJU0 QJ& O^UwJI ^1 SJaaOlc £rf < <JiLX*ul 
^3 j^JI lift £J>»J f£j < <3al*£»J ^LLII J^>wJI *3j »J>j>JL*il Jla-Juj LaJLpj 

•^sj (IF delrec > 0) is^aJI U ^LlJJ l^Pj . (delrec) j_*jli_JI 

<JIjJI Jj^I» ,>* ck"*" 'j^* j 1 -^' f^ j^ • J-?""-" Ha J' ^S>>il J-»^i} 
I^Ij 2UUJI 6Jm> ^j . A»«J <u!p aIMp ^-i._j »J J»«JI i^l JL^Ldl (DELETED () ) 
o>U«JI aJl* jjaLSil j^JLi j^ (RECALL) ^Ji\ »|jL>0L kU L Jj>»JI lift SoUx^l' 




J>U- ^j . (ELSE) juu ^.IjMI JuJjj ^UIj, (IF oktopack <> "Y") 

>ljU>0Lwl *3 <i1 JLOLj . (PACK) j*i\ »|jL>^uiL ^udl SJL* »Ujl *XJ ^ojj^l 0JLft 

» JLAj^il iSjj ^ JJhj (PACK) ^/i\ »Ijl»JU»I J*3 (SET TALK ON) ^1 
.Ijl^jluiL ^--J>il ^>b^JI Jl ij^ji\ p^i fl • r+»l\ <JU» j»Ual J*. ^JIjJI aJL^JI 

" (RETURN) ^1 



UV 
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-iJlill x^l 



ii-a-iF fUtt 



OQLlJI .^Vt.t-^l punlav* * 
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f ilu» 



^jj^^jr^jLjaJI <**$" ^ »X>CJI ^S3 ^Jl (JaJI 
-Lrll »\* 8. -J..I Tl .-I 5 ' I..- V" Ji III fl 



^ c .- -.,— us- , ^s- J,-- , ^sAj (Stock Control) 

jJiJI 6Jj* ^ oliLJI jlp[j3 JjLiouJ^ . %j~»Jll ^sLaJI^ s^jl^JI ^sLiJI S*jL-j 

v_iU_£JI IJUH ^ ^jj JLJj . 3LJUJI 6JLft J* SjJa**JI ^ SJoj^JL Sp US' J| ^ A ] 
*jU£ ^ SijL*i* oljl^I U-jdfi. g*[>JI JoJaiJ ^ijj 43M Jj>1£l« ^Uvo g-b^j j-^fi, 

JMi. ^ (Batch Updating) £*»il J-jJ^I pUii .jl&ol-j ol >***»- «J^JI 
jjolj^j g-b^JI lift JLjj 1 ^£»j U5" . (Transaction Files) $£>>JI oliL 
eliotf ^I^JI p>>JI ^ ^^iil (Accounts Receivable) *:>L*JI oLL* 

. J*l£u j»Lki 

t_ftJUI 45— J Lfrljl obUJJ 0UL0 3.X* >^*«oJ 2LoU ^LLoj ^UUI »Ua3 <-J^! 

4^-p obLj J_p J...Z.A-) {S j Mi JjJ\ uJJil IjlAj . (Master File) iS ^ J J\ 
Uj~a J£ _ > juu. Jl ^sL^^fL «_ilL»M 6JL« ^u*S" JjLo j^i^iJL LJL. 8*>*-_>il tibial 

<J 1^ — UJI j >-j (In Order) <_LjUaJI lJub ^ u^JLUI ou^>a ? 1 afljj 

4JL* u_ijL*cJI I3ub pljJi *ij ^JJI (Vendor) £jLJI *~*Jj (Reorder Point) 

• ^' Jj-^jJ' ^Ai^-UI Jp J4—J 

>_iLL-uo^l 4_£j_>- j^-P oLlLj £^13 oUJ-o j^m>-^3 Usui QjL>*ll f»Uai v^^i? 

Jua-tj . (Transaction Files) *£>>JI oUL> t5 --.«.3 ? « oW <y Soj^jil 
*J ,^-»j < (Jt**^' °' J '^ J-*- >-J'- : -«>^l £*J *0*" O"* °^^ J-^t! «^LiUI 0JU» 

cj! *tt^' *-* — ^ ■■■' HI IJ* * ■ 5 o.w-)j ^Ij^LlI Sjjjli aJjj <L«^ 1.5^9 - i_J| 

. (Sales File) 

Jl LgJU-il aJCj ( jJI SJuJL^JI i-iU*aMl ^ oliLo Q*»o^J ji-T ^5fjj»- t_AL jJliAj 

. (Newstock File) ^>\\ 

( \ - \r ) JSliJI & «0UJI ciUUI oaa j^ 535LJI ik».>U 1> Cj, 

p>>JI j4j JJU jAj ?£>LJI oUJil ^ju \&ji£u Mi* JLa 1 J5JJI ^ Ji*^ 
^_=j ^JJI (Key Field) ^\i*l\ Js* ^«o JSaJI \\a>j . (Part number) 



trr 
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l 



Mas£eur File 
Jfecaras 



1 



Part number 

Item name 

Amount in stock 

cost 

Amount on order 

Location in store 

Vendor information 



I 



Fjtle Records! 



I 



Part number 
Quantity Sold 
Selling price 
Date sold 
Cusomer name 
Clerk name 



I 



1 



■.'■■ iSj^T^7+j i* j*!* tip f fz v^^?i» l /'fV 'i 



Part number 
Quantity received 
Purchase price 
Date received 
Vendor 



( \ - IT ) J&S, 



(Key Field) r^^^ J* 3 - ^ " ^ 



£j£«»j j^**- oLalil oJut yjJ J_^Li-Q ,Ja>- J^J^J "T*^ ' °"^ JlpIjJ til 

Jill (Unique) la^Lu ,-^Slj jl i-^ j£>JI IIaj • <J>U- £^> 



US' 

LiLe SJlP 
SjUUI AJlAi Jaj, 



(Master File) tS ^ J i\ s__«JLII ^1 J^*- 
. KM oUlil ^ J^kll, ^l, 

^Lzio J&>^ <uIjl>ol«iI ^^Icj -a^S" jl jx3j JLu* j^jilj jhUjJLJI «Jii Ja** ^j 
JJskS' ijL^I joJ, »ju>i«j MjLo JjJuJI ^ . (Unique) laj-k- q^SLi oM 

J^-aoJU ^-Ixi^ (Social Security Number) ^yMa.-kJJI »3>JI j»jl»^uj *JjjJI 



tU 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



(Part Number) *>* ^j, d 9 y>. JS I ,**>•. . „>>JI pj, y* ^Uil'ji^ 

. (Unique) a^l. 



I ^ ' 

JLoaJIj ^_JJJ>J,I «jLixJI <*jlloJ »X>,Z.*u.aU 7««-w-( >UaJ -.■■ lD -o7 i_dt»0 

J-S 5^ <iU>[| l^j ^UJI (Part Number) «s_>»JI .3, jujl»j ^ 
JU. j^j ^J! ^Ucdl r LkJI >^ ] ^US . ^.J^JI JjUl 
All oULL. *ULiU »jSj US' . U\JLL> ,_*»u ^Jl olu^l ajiso, q>UL 



i^I In II sS>»J «jLa*Jlj 4J 

,^11 v-aJL-o J_S S^^S <sU>|j l^j ,_pUJI (Part Number) 

oLl^MI <JU- "e-^^J ,^1 ^jjLSsJI f 1 -^ 1 ^>t! of v^ 

. UT * LjJI oULL, * Li^L »jSj US' . l$JLL> ..^ Jjf 

uSLlu»VI i&*». ^ < lJIjl^MI Jtfj*. <*jls*j »Jl>ol«mJJ >lkdl ~^j ^1 y^ US 

SojUJI ^JU-wa^i oljUuj Uiul £*«*j D 1 ^uw US . 5-,>jUJI *Jjj ^jJI ^bj 
oLsUJI Aj^kIj LIT r LkJI j»yb 1 u-*j US . ^jill ^ UJUl JL-Vl (jiu^ 

(Sales) oL**JI ^jJL. ^ (Master File) ,^-J-JI Uk Ul ^ s^^il 

. (New Stock) jjLII >JLj 



olilU Jji=w 'tj -^" i - NT 



^ obUJI B^lS ._&!. JL*». jujl»^J ?JLu.j J^u.1 ^^Sj U*^I » k™ ^ 
jujwhJ M**i . l^LLil VJ JLUI j£>UxJI ^j" UUll lJm> ^ «jjLLil ^lL>J| ju 



JUJl»J 



£-. ojJLLII jijUteJI oLji^. U.ljj ^Xj (Master File) (>5 * U -J > II uiJUl Jji* 
vJLl^^II <JU jl ULS^ p^j ^^11 ^jjJiiJI j& ^^jjUsJI 6Ju* jl*.U . uOll li_* 
So^^l <**SJK ^>>JI jfcjT, ^>>JI jkSj Jp- J-XAj ^i>5JI iJun . Q>iJI jJ Sjj*.jil 
c**j 2L*SJU ^ji^jJI ^j P _>*JI Iaa LSUj ^UviJI ^^j ^»vll ^ P _y>Jl IJun j^o 

. P>>JI IJL* j^o t-iiJI 

^-o j^x-j (Reorder Report) ^JUJI SoUl ^^j^JLt j^*^ ^-T ^j33 JL*j 

D l US' . UJl (^jUJI oLu^U <*il3 ^^-jj « (On Order Report) yiLJI 
. S,Xj^*. oU«»l pljJj UjIjl^Ij *jl>juJI -jSj ^1 plpjl oULt. JL* 

^ (Master File) l5 «^JI ^illl ,_Uxij 1 ^^j ^U^UI 6Ju* ^jiJj 

: 3JUI obU! 
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MUX ■ i L —j r 



part number 
Item name 
Quantity in stock 
Purchase price 
Reorder point 
Quantity on order 
Location in warehouse 
Vendor name 
Vendor address 
Date of last update 
Date of last order 
Quantity to order 



n *- * Jl j»-**>[j (Invoice Number) Zjyt[i}\ *3jj V^b *>?*" p 3 -* J* iSJ 1 "^ 

: IJ&\ obLJI Jk j^j^j jiy^o (Sales File) 

Part number 

Invoice number 

Salesperson's name 

Quantity sold 

Selling price 

Date sold 

Whether posted or not 

x2_> ij^j^JSj SojjjJI tjL^I ^p- r+ayl ^HLi^ 2 J*M <} V^ fl-k*" J ^ 
iUJJ . (Vendor) ^JUI ^k sjjjil ^jjbj pl^iJI &JLj S-sjLJI S**^ »>>>JI 
obLJI ^c tjjX^j q\ u-^s>o (New Stock File) SjjLJI iJli*Ji\ «_£lo ^U 

Part number 

Quantity 

Purchase price 

Date received 

Vendor name 

Whether posted or not 

in 
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juum <-i±->>> 



Laj^I *S>- QJd-j (Master. dbf ) <— I ,^-Jj iS ^S J l\ t Jdl\ ^a, . c^lst^ 
^^^ l*JjJ\ LiL— ?l* ^U- jJ^ (Sales. dbf ) iS ^- ii oU~ig ^li. 

. (Newstock . dbf) 

(Master Pile) ^^^kjf .-itt.1 pLiil \ - A - >Y 

■Uf-I ... «, II «-«bH ?^!P chL>-k cr* 15— si*-" «-AL-U ^L^ 1 p— ^ 
63LUI ^ L£ . J,« v^ 1 ^ c Liu*l j«- US' (Assistant) 

: ^tf JJij (CREATE) ^1 ^IJLiJU-l* LiJ 



CREATE MASTER 



ckLiL*JI sjl*L3 ,Jl±» J-SL* <_aL& ^^ks aJLJI aJub ^^ 
-d^tj ^:j Ji*. J£ j^-l UsS" U-j^t ^* jk^j ^1 (Structure) 
: ^K .-illl ^^j^Sj j*i}j . oju-j I JLi^AjJI p(3^ll jjipj 





FIELD NAME 


1 


PART NO 


2 


P NAME 


3 


QTY 


4 


COST 


5 


REORDER 


6 


ON ORDER 


7 


LOCATION 


8 


VENDOR 


9 


VENDOR ADD 


10 


DATE 


11 


ORDER DATE 


12 


NEW ORDER 



TYPE WIDTH DEC 



2 
2 
2 

2 



Character 


5 


Character 


20 


Numeric 


7 


Numeric 


9 


Numeric 


7 


Numeric 


7 


Character 


5 


Character 


25 


Character 


25 


Date 


8 


Date 


8 


Numeric 


7 



»rv 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



P LbjJf 



Jrt ^UJI Jl*JI ja ( \ ) *i, JjbJI 1 Jb*>L JS-SJI !!__«. ^ 
. uJjj* 5-* — ^ ^ ^^SCxj ^^ Jl* ^j (Part Number) *>»JI 
t^-p- J**- j*j (Part Name) *>»JI ^1 Ji*. j* ( r) .J, J-LsJ[j 
t^jl J_E* j-* ( T ) *J, J^*Jlj . Lij-a- Q-ij-S^ ^_- o j -S- s -j 
,^**3j Li^xOi >L3jl w*u ^ q>&j ^^jlp J-2^>- j-*j (Quantity) 
J-A»- _y*j (Cost) plj-iJI jjl«< J-**- ji)-* ( i- ) p-3j jJiaJ^j . £p*jij£s> 

u^>o ^JJI JcJI J^Ujj (Reorder Point) ..-Ik II jl*. JJi* ^a ( a ) 

|J nlj U.,O.I^ WI f>l-3jl 4jlmu j*j-o i^J-SJIjj i -1- ii f l-ll 



■LA <_A.Ua S^LpI aJlXp 



O" 



.j!>»- J_L»- jjbj (Location) _j>>il ^ >-jj u -JI ,_,l_Co J5»- jjs ( V ) 



^ Ja*JI 



l ^ i> JL>j Vwp- ^ Q^Slo ^»- Jla- ^j (Vendor) 



£-_>-£*j JL-wki- ^ qj£*» (cth*- J**- >*> £*M oU^* J^*" >• ^ ^ 



U, 






fJj J 5 -^ • •-* 



(Date of last order) .-J-u^JU *_JLL» ^iT ^jjb 

JLuJI II* ^ Ifclk ^^-. ^1 U*£ll jia- jA ( \V ) 
. /w>JJ. i .P (*)_■,■ 0l,l L) 4 « o,>r>,"^i *>l3jl 4jl*~u ^o .-i^Swo iCOJLP- 

^UJI JiLJI q^ 1 J* oiill iJLfc ^UJI ^-^1 ^iJL. pLiJ^j 
^^kJI ^IsS" ^ (Key Field) ^--rfAJI Jl>JI ^ ^>>JI ^ 



USE Master 

INDEX ON Part no TO Master 



(Sales Pile) oUnll t_iLi pLiil X - ft - >X 



j^u IS ^tfj^iJI ^^-iu (Sales. dbf) oL»-«il *_ilo P Lijl »jl> 
(Part_no) P >>JI .J, Ji* ! 2Lk».>L u^j . ^—-J^Jf ^-ilJ.1 ^LiJl 
w_nJUI J-io Jjjj. ?-«i- JjJa^j « — aJUl lx* ^i Ij>*-j-- o>£j O^ v^! 



HA 
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* *m"~*y 



FIELD NAME 


TYPE 


WIDTH 


DEC 


1 PART NO 


Character 


5 




2 INVOICE NO 


Numeric 


6 





3 CLERK 


Character 


12 




4 CUSTOMER 


Character 


12 




5 QTY 


Numeric 


7 


2 


6 PRICE 


Numeric 


9 


2 


7 DATE 


Date 


8 




8 POSTED 


Logical 


1 





JJbJIj . (Part number) o*JI pj, Ji* j* < » ) *j, JS*J[, 
i5^ J** _**j (Invoice number) s^plill »3j Js». _y»> ( v ) *jj 
(JlJil ^Ml j^.1 Jiw ^ < T ) ^ J^J[, . r uj u- ^ o/L 
. 5*UJI u—a. ^ ^U. ^^jm o>£ jl ^J&jil ^| ^^ jus ^jij £_*JIj 
p-J Js» y> ( t ) jj, JjbJIj . U^. ( u ) ^ ^ ^ ja^ ^»J 
JjL»JI, . .U^. ( u ) ^ q^ ^^ Ji*. _,_*, (Customer) jJljl 

pttjl ^a-— q- q^L. ^aA* Jia. _^Aj ^pLil C.5JI JJU. jjb ( a ) ~*3j 
Jfj £jJI j*- JS* >» ( t ) jjj JJL>Jlj I ck*^* OftJj J tA^ii. 
fl) J 2 ^b • 0*Lr^ O-i — *ltJ pMjl JL *- fc3 Cr" 0^° lS" 3 ^ J** 

• '**x>~ ^l~* o* a^- ifyjb J** >*> « e*JI &>^ Js» >b ( v ) 
^Lu JJL^ ^jkj (Posting) J*^sil Ji. >» < a ) *J, JjlJ|, 
eiXJI ^1 ,,..« :. ^ JI ^LiLu J*-^ ^1 ^S^sii pjuiju-j (Logical) 

: (Dot Prompt) UJLJI s 



USE Sales 

INDEX ON Part_no TO Sales 

Sjt^fyi L__iL3u^Vl * i1« pLiil T - A - >Y 

UjjJJI < _ r ^ij (NewStock.dbf) 5^1 »jLu^| -.JUL, P l£j| ^ 

O^" fJ> J*~ ^^ hx> -° *— ^5L. £_. . c Uo*i!l jl/u* 

eJill o_j^£i piy . ^h, J^JJI^ ^1 {JU joj (part Number) 

m 
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*A***y$ 



FIELD NAME 


TYPE 


WIDTH 


DEC 


1 PART NO 


Character 


5 




2 QTY 


Numeric 


7 


2 


3 COST 


Numeric 


9 


2 


4 DATE 


Date 


8 




5 VENDOR 


Character 


50 




6 POSTED 


Logical 


1 





JSiJj^ - (Part number) *y*l\ *5, Js»- _y» ( \ > *3j JiisJ[j 

4-A* p \j *■ '1 l)-oJ J-**' >* ( V ) *3j ,La>J[j • f^jjJis- j-jjjoJJj A * a i ?- i 7 o 

-U3U3 v> « q^Lo j^iojb Jl* ^fcj ^.fti-JI J^-aj £-ob JJLa- yn ( i ) 
*Jl_£JI (Vendor) ^JLJI »-J J^* j-j> ( a ) «J,.-.JJbJ[j . Jj^- 
j*> ( t ) pj JSsJ[, . U^ o^««^ j>° O^ i5»>* J**" >*J ^iu^ 
^i fJZ^zlJ >>u>^w-i (Logical) ^-S-k : * J-**- >*> J-**^' J-**- 

. UJL^p jl^ 3 J"*^ O 1 —^ ' i$^' ^W J 1 ^ iJL - JI ^ bl * J^ 5 

. (Dot Prompt) SJa&JI 3^£-« 

USE Newstock 

INDEX ON Part_no TO Newstock 

j^\J» ^UJL. I^jlo A£>b . oUL. fc-» ^ Jill ^ ^.LkJI q^&J IJL^A, 
,»-_>-$3 ^Li—JLo 4 - r _ L ^i.'5ll a_3>LJ[j . (Database files) obLo 

. (Index files) 



««jbLa^jJ| p-»j 



u-^ *\ - >t 



_j_*5 . ^elj^JI jjo ^L ^-LiajTifl ^j--. US' cubLJI jl*|^3 oUL j*-*~=j o*j 
J* J/*l r lkJI . k~> LS 3Lkp^ [fSJj S&L— »Ji3 ^Db Jp 8>~JI 3l ^^ 
J. 1 u 1 1 j^ J| J^aj ^1 oL^I juJl»Jj IfliJL- <*jlx«j q>UIj s^j*.jil 



tT« 
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-IbsJI 



I4JU0I *2j ^i\ 0U--JI <£>»- jA (^iltll f-lhiMj . Ij^jfcj (Reorder Point) 
4JI4I »UuJl, . ( Point of sale ) £*JI <Lz> ^ o-J^JI vJLU^il *k«lj_j 
QjiJI Jl 8a,yi Jb-M J**-J U*s f^J ^1 (Newstock) ajL^I <^>- j* 

jjiil, jyS3 ^J^l %30btJI jj-UJQ •' ySjiSH «&lAJI JJ-WI J^4 j^J ^j 

JU_».jJI 6J1A j^S _>*£j^JI ("■*s* J O^li * **■** '*£* Us-*»jj ,i f * ^*" LS>*-1 *s*P g?lri 

. ( "r - it ) J^i-ll o^ c* 2 ^ 15^ **<^" e*W "^ J* 
^jJI g-bj-JI jj» (IMenu.prg) l5 «-J>JI g^b^JI ^1 J£iJI ^ -k*^ 

Jp pl4 • L5> yi pW 1 Jt*^ 3 U&- o- j^ ^1 V^ 11 *J^I t> (J^Ti 



1 2^ _ , _ 

I J-JL&-) ^JJl (MMenu.prg) ^-oLij-JJ Jl ^^-tsJI jOJ >jl>juJI ^Lxi-I 

OJjkJI ^ Sjj^-jJI JLlmoMI <*jUJ (Master File) vJLl^U ,<~-J>JI 

_j II J L J-JLi_j ^JJI (SMenu.prg) ^-obj-JI Jl £j-fcJl jx_Zj 



L " 



Jl £jj£ll ^sj jl . L$jco *ii ,-iJI ob-a^ll uA-Sj-c 2C*jLd (Sales File) 
<*jbd (Newstock file) Slu.'ill uiL Jjl£-> ^jJI (NMenu.prg) g-ob>_JI 



lAfenu.prp 



1 - Manage the Master Inventory 

2 - Manage Sales Information 

3 - Manage New Stock Information 

4 - Exit 



MMenti-pre 

Add New Part Numbers 
Print Reports 
Make Changes 
Update the Master File 



SAfernu.prg * 

Record Sales 
Print Reports 
Make Changes 



1 



IsTAfenu. prg 

Record New Items 
Print Reports 
Make Change 



( r - ir ) J£& 



m 
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J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 
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V-eL>* t-sla* e«bH 



J-JlSlxj »j^j ^JJI p-ob^JI jjo (IMenu.prg) l irUt ^ J J\ S_jUJI g-oLi^j 
J-— US Z£i£}\ jJaJf juJ L$JE>U. ^ pJL.-V.iu.il jkLC ,ydl V^-P 1 <_o_3LsJI 
<Lo_jU jj^j* ikU. ^ jk^j ^j-^Jj g*^ »■$' O* ^tiO 3 (5* «-jU*»o}! _jAj . j-Lsu'lll 
S^US" J-ia-L g-ob^j ^1 SjLS J-*3 SjLJLSj . (Menu choices) ol^T^-La-l 

Q^i ^a*. . g-LJI JUaiv. Uju»o 2lJ ^L (PSEUDOCODE) tJ/i\ oLJaiJI 

. okkiJI olft JJja j^dl (DBase) aJjU £»[# SaL j*\/i\ ajIxS* JUi jl«j 

(PSEUDOCODE) «jyil -.tj^All 4_»t£ > - >Y 

*^j ^ . ^JuiJI IJl* ^i (DATE()) JUJI pJf ^b ^>iJ jkXjj *(T_date) 
-0U- ,Jj . )l J p^JLJI £jjWI >* lj^> o^ '•*' r"*^*" -II Jly-L? r^^l '^ ^A** 

^>*ASir IJLA ^V ljua- <-»4-o SjJLiJI 6JU»j . ££>UJI J-jJuutj »Ju>0LuJI »^J 4J£La-l 

^Li^JI »jSj jiJ . j^b^JI Jj-b tSjjo* £*£>!^o ^ ^Ijl>clw*I *a**« (T_date) 
jLxi-l Jp * Ujj . -uU-I j \ M ^1 a-JUJI ^ uj^JLkll jLti.'ill ^ »ji»k*.ll JI>*-j 

: ^ILS" UtjlxS" ^ (PSEUDOCODE) gib^JJ SJj^l &\jk±J\j 

SjSIjJI oI^jlx^o JS tuuo - \ 
(environment) ^»bjJI -ULo _>*4>J - V 

JLsJI pJI ^pbi B^Sli _^Jtz* pUil - t 
«b>JJ V 1 *^' ^-S^' u^-^ SijL^ 3 **!*■ tX*^ 3 " ° 

<.lw.oJI AeJUlJI ijaj*! <MtlwJI ihiul ~ *\ 

»Jii^wil _,Lti-l JLaI*J - V 

v^uai JJ.IJJJI ji ^ji - a 

^2>>JI >jL>^wil jli>o j^x* ^L^l S2LJI jl^oX**.! - \ 
(DBase III+) g-b^j ^ ^j>JI -w 

fuJ 4-JL (MODIFY COMMAND) ^jUSj ^Uu"ill J^u. US g-b^JI ^IzS *JLj 
^ 3(JU>JI aJLj» ^j alouLo^l ajUoI i_jjILo j_^j . (IMenu) j_*j ^obj^JI 

\JLS \s3j jh M liwftj (MODI COMM) AjLiS"" ,^^1 >bui . ^.1 js ^« Lis Jj^l 
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V-slr* UUH g.bn 



******************************************* iMenu . prg 

* Main menu for the inventory system 

* 

SET STATUS OFF 
CLEAR ALL 
SET TALK OFF 
SET BELL OFF 
SET SAFETY OFF 
SET HEADING OFF 
CLEAR 

*_-.____ create underline variable Uline 
Uline = REPLICATE ("_" , 80) 

*------ create memory variable for today's date 

T_Date = DATE() 

@ 17,5 SAY "To change date type new date and press" +; 

"Return " 
§ 15,5 SAY "Today's date =" GET TJDate PICT "99/99/99" 
READ 

*------ Set up loop for presenting main menu. 

IChoice =0 

DO WHILE IChoice # 4 

CLEAR 

§ 2,1 SAY 'Inventory system main menu' 

§ 2,60 SAY DTOC(T_Date) + » " + TIME() 

§ 3,0 SAY Uline 

? 

TEXT 

1. Manage master inventory 

2. Record sales 

3. Record new stock 

4 . Exit 
ENDTEXT 
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st~~ijl UlsJI g-bn 



*-.___ Wait for answer 

§ 24,1 SAY "Enter choice : " GET IChoice PICT n 9 n ; 

RANGE 1,4 

READ 

DO CASE 

CASE IChoice - 1 

DO MMenu 
CASE IChoice = 2 

DO SMenu. 
CASE IChoice ■ 3 
DO NMenu 
ENDCASE 
ENDDO (while IChoice #4) 
*„....__ when done , exit 
CLEAR 



QUIT 



: J?i& ^j (SET) ja\J & <pj**- ^jjU qp g*b*JI 



SET STATUS OFF 
CLEAR ALL 
SET TALK OFF 
SET BELL OFF 
SET SAFETY OFF 
SET HEADING OFF 
CLEAR 



,^1* ^jJ^o (Uline) s^li ^ax- *LsjL Ijuj g-b^JI ^ ^Wl o^L? 

^i ^-H I^a *Lul 1 *k»X> ^o . ^Ui juj l£. ^1 ^ <^* of^j 2L&LJI 
C^*rf cS^ • tJL^ 1 V^ 1 £*U^ V» ; ^ (Public) LU <l**o ^j-^JI j^«b>JI 

Uline = REPLEICTE ("_" , 80 ) 



tTY 
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Ij-JjII UI2II g.bji 



(T_DATE) t5 3o,Ldl S^IUI j*J&a *1$jL Ijuj g-Ll^JI ^ ctJLUI t y>Jij 
jL^JI JjjAJj ^ <JU.il ^ Jill ^Ldl j*j < -ui JUJI pj JI «jjb ^jyijj 
^ ^jjUI Jiil JJ p A>o«il ^ jil% . (MS-DOS) JjAltil alii J>li. ^ 
_*~*sll ^ ais^s jjLJI ^Ul <J ^^ --li^JI U i jLg^JI J^jlSjj oIjlj 
p^-JI ^j,Lt jJljJ ^jjbJI Ha J-jJutf aJUJT aJuo ^ £*J^— i> • (T_Date) 

T_Date - DATE() 

6 17,5 SAY "To change date type new date and" + ; 

"press Return " 

@ 15,5 SAY "Today's date =" GET TJDate PICT "99/99/99" 

J^Sj»JI oLsLj p J_. ^ *jj*z~j «Jj*»> <ft Ijl>. ^ (T_date) j^d\j 

. UT aLill!, a,U**ll oULo ^i Vu,LJI 

Ua. ^' L o q[>a*JI ijojs-j <&\j$J\ v^i 2uj[^Sjdl <sL>JI ^j_j^xj >^*j *->\jJ\ o-?^ 
c Lj*^ jjLJI v-Jjl ^LaJT ^^ ^ £1^1 lib JjlJ iJl ^i ^ji\j ^IxJI 

: <Jlill jjLj\ jki. ^ »sj 11a, . (ICoice) 
IChoice = 
DO WHILE IChoice # 4 

CLEAR 

@ 2,1 SAY "Inventory system main menu" 

@ 2,60 SAY DTOC (TJDate) + " " + TIME() 

@ 3,0 SAY Uline 

• 

? 
TEXT 

1. Manage master inventory 

2. Record sales 

3. Record new stock 

4 . Exit 
ENDTEXT 

*----- Wait for answer 

@ 24,1 SAY "Enter choice:" GET IChoice PICT "9" ; 

RANGE 1,4 
READ 



\TA 
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V-si»* ^^ e* b -H 



^11 ^JLiJI ^ (DO CASE) jJiH J— £-j g-bjJI &* .ju^UJI o^b 



DO CASE 

CASE IChoice = 1 

DO MMENU 
CASE IChoice = 2 

DO SMenu 
CASE IChoice = 3 
DO NMenu 
ENDCASE 






ENDDO (while IChoice # 4) 
*----- when done , exit 
CLEAR 
QUIT 



vvjaLj^JUl 



-> . 



LlSJ T - >T 



DO IMenu 

Jliol j^SUjj . S^liJI Jp djUsi^l jj^j c 1 ^ 1 ^!>^ *Jtu <k*.>L ^ 
jj, ^1 j,l 5bu (5) JUab JJi, (4) Jl (1) ^ _y>j j^JLI ^All & l». j^3 

. (4) jLsfc-SlI &J* o* J-JL4jdl r Lki ^Jl 



\T\ 
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Wji^e^ 



■mass 



•mania 



nvMVMtfnwmfmrm 



« ■ • ■ « ■ ■ • 



QSJtfSQ 



$SJ:58 



— MMM MMMMUMiM MM MM MMUMAMM 



1 . Manage master inventory 

2. Record sales 

3 . Record new stock 

4. Exit 



Biter choice 



( \ - \r ) J1a 



u« 
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*. fff • Iff t i*«» — 1% 
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|5 _ Jj j| jui j,*^ g.bj. 



oLL&J (Current status) SJL^aJI 2JUJI jl»jl>j ojl$j (Master file) 
*l£jl J--W US* . (Master. dbf) <s**-J> <u ^ 3 i>j— '-"W '^*j • o>^' 15-* 
ljub J-J^SJ j^xj j • (Part_no) *>»JI *jj J^». J* p Lu -u ^LsJI ^-^sAJI 
( \ - u ) jiiJI J&], V-*^ 1 ; — J ^ JI O* ( ' > fM j 1 ^ 1 •***■ e* 1 ^ 1 



MMenu. org 

1— Add new part numbers 

2— Print reports 

3— Hake changes 

4-Update 

5— Return to main menu 



Addnumb. prp 



Add new part 
numbers 



AfreportsL orp 



I 



Print reports 



AfediLprp 



Edit data 



Updated prp 



Update Master 
from Sales 
and HewStock 



OrdersLprp 



Print the orders 



( \ - \i > JSLi. 



I * n J UbJufc-I . 4JL3JLU j-e_olj_J ?JL*u >^o ^muU^JI twOJUl ,J_JL£-3 ti_oUj-J QjiXj 

^Sj-i-^l 3 - , -^H j^l^jJI ^J *£&& ^JJI (Main Program) t5 —J - >JI g^Lb-JI 

1 . ( 1 - u )" JS^JI>il 

J_S" ^1 ^-4x11^ ^Ll^-J.! 2u3UII jb^A **— -&JI ^*jA> (MMenu.prg) (fM wJ^JI 



ur 
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^-Jjl JUI Jjl&j g-bji 






«tffl^ 



*******•*•**«** MMenu . pr g 

* Menu for master program of inventory system 

* Called from inventory system main menu 

* ~ - " ~ - Set up loop for presenting menu 
Mchoice = o 

DO WHILE Mchoice # 5 CLEAR 

§2,1 SAY "Manage Master Inventory 

@ 2,60 SAY DTOC(T_Date) + » " + TIME() 

§ 3,0 SAY Uline 

? 

TEXT 

1. Add new part numbers 

2. Print reports 

3. Make changes 

4. Update from Sales and Newstock 

5 . Return 

ENDTEXT 

§24,1 SAY "Enter choice (1-5)" ; 

GET Mchoice PICT "9" RANGE 1,5 
READ 
DO CASE 

CASE Mchoice = 1 

DO Addnumbs 
CASE Mchoice = 2 

DO Mreports 
CASE Mchoice = 3 

DO Medit 
CASE Mchoice = 4 

Ml 
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ifm j J H jui jjjLa, g.h,, 



DO Updater 
ENDCASE 
ENDDO (While Mchoice # 5) 

*----- when done , return to main menu. 
RETURN 

( r - u ) JSLiJI ^ ^U-ijII 2li,LiJI ^$Ji3 g-b^JI ljub juAjli jo*, 



linage 


Master Inventory 


02/20/90 


12 


40 


50 




1. 


Add new part numbers 










2. 
3. 
4. 


Print reports 

N&ke changes 

Update frcm sales and Newstock 








5. 


Return to main 


menu 








Biter 


choice 


(1 -5) 











( r - \t > JSLs. 



^-^Lj^ < II i *XiJ »_£-» <_JU>JI 6Jl_* ^^-s . <-J-jLu,JJ a_»jL-aJI ^ 

^jjJI JLi-o^l <LS>Li> pLSjl ^jt i_c>o g-Li^JI *jb£ J-3j . ( Addnumbs . prg) 

. JuJu>JI i_9i.n,ll CjbLu Jta-jl .J >A»CwmJ Oj*»i 



Ufl 
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^Jl ,JUI JjJLSJT g-bj. 



JU^VI 2li,L& c L2Jkl > - T - M 

fu'ly CH** O— p -rf^ ^^1 (Screen Painter) <jS>1 &J| 1—»L> 

'(CREATE SCREEN) ^Jil hbX ^jjL ^ J (Assistant) xpLjI 
j*> O* *^ UI JCS iJ JJ b • ( Dot Prompt) UjUI s^jl. J>U ^ 
^i J^l UjjJJI j».vvr u j . (Command File) j_«l/ .JUL. JLjUS" 

. ~>bjJI lJub 

UJLJI 3-^ i- ^ u, JUI _j-k-JI ^_,L^ ^ ^Ji JuJL-uJj 

: (Dot Prompt) 

CREATE SCREEN Iscreenl 

^bL^JI 50*13 i_iL jL — xi.1 *£j -dbU. ^j . (Database File) 
j*jo ,*^». . (Load Fields) jLaU ^ ^ , (Master. dbf) 
C^ J^ J^" -J 1 ^ 1 f*0 • ^L^ 1 ^ l*^ Wkll Jy^JI jLj^I 
• J 1 -^ 1 C 1 ^ «> ^i^i\j JS»JI lJu* Jl ^^1 j^I jJ^j J^ 
JS" jLx^l a ^ . Ja»JI ^J .U (t> ) .sJbt. ^ *JLJI ajuk i 
Jto-j (Order_Date) .-pjl^JU U±> _>T £jjb Jjl* |ju> L J^JI 
Otl*»JI oA* O^ 1 (New_Order) oLuJI Or o l a ,IL. ^>o ^J| 2u^j| 

s^-JI ^fcnJj UiUJI 6 j_» £_ g^SjJ (<— ) c Lsi." J* JaJLjJi 
v— *• J^laJI ^j^o ^_jj_»a l«Jt>U. ^ pa**; ^1 (Blackboard) 

. **UJI 

_^>ll jL^^j *xj jl&UJI J* JyUJI ^[^ juju>a ^ P l^| julpj 
J^* 3 f^ (Part number) 9 y*J\ ^ ^UJI ^JiJI aj-JI Jl 
jUAj . (Display Say) Jl (Edit Get) ^ JjUjl Ijl* $JL* 

. »Ai»£«*ll SJa-ujI^j JjJlilXU Jjlj) j*i- JjL>JI IJlA — ■ ■>» j ^J 

JU-a^ll c lxA* J* J=JUJI^ (F10) c lii. Jp kl^JI ^ JJ5 .luiuJj 
J^M_jj . (DISPALY SAY) Jl -Oj^zJ (ACTION) jLxi^ll JiiP 
. ^.LiJI ^ fr _y»J| ^ ^uji ^s^Iji ^j| p li-^j ^ji^i ftJub ^ 

vbSII Jl t^JI ^^ JU^I ^Ia ^.j^a ^ J^UsJI ^ ju^ 



»£T 
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lJ -jjj( um js»A» g-hj, 



Jli-afl $-&l£J c _^l. p***J ^yt ( T - U ) jj, J&Jlj . J^ll 

^1 jw.rfiJ j2^*jj 



. S*UJI 






Master Inventory File 



Part number : 
Part name : 
Quantity in stock 
Quantity on order 
Storage location : 
Vendor 





( r - \t ) J£a, 

(PSEUDOCODE) 4J9VI .-.ljL.^11 4_il2£ Y - T - >£ 

g-ol ij-J sJjMI ci.lj_L>JI a_jL£ |OL; S_&L£JI --«— a j «j 

: ^^IS" iUij (Addnumbs.prg) 

. *j ^UJI ^-^ill UiLj (Master. dbf) <s ^ J i\ Udl\ gz ^j, -\ 

. «CflLi>l i-ijikll v-ii*JI »3j <y> >Ju*X«-ll JI^u. *Sj -I 



tibLu Jli.^ JU-slll <c&l& f£ij 



. juJl>JI cJ.u^JI IIa 



uv 
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tf-JjJI Jill JsiAj g-bj. 



<AjJl>> i— tt. U ^ > 






(Addnumbs.prg) 4fiL^=*VI p-aLi^i <LlG& V - Y - M 

^j jlLaJI s-^JL. ^ (MODI COMM Addnumbs) ^.Ml JulxS" ^ 

************** * Addnumbs . prg 

* Add new items to the Master file 

* Called from MMenu.prg 

USE Master INDEX Master 

* - Set up loop for adding new part numbers 
Partnumb = "X" 

DO WHILE Partnumb # " " 
CLEAR 

@ 2, 1 SAY "Add New Part Numbers" 
@ 2,60 SAY DTOC(TJDate) + " " + TIME() 
@ 3, SAY Uline 

7 

*----- GET proposed part number 

Partnumb = SPACE (6) 

§ 15,6 SAY "Enter part number (or press " + ; 
" Return to exit) " GET Partnumb 
READ 



* - Check to see if part number already exists 
partnumb = UPPER (partnumb) 
SEEK partnumb 
DO CASE 

CASE Partnumb - " " 

CLEAR 
CASE FOUND () 

@ 20,10 SAY Partnumb + "already exists" 



UA 
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^--3^1 t-»UI Ji*-" &&* 



? CHR(7) 
WAIT 'Press any key to try again 1 
CASE .NOT. FOUND () 
APPEND BLANK 

REPLACE Part_no WITH Partnumb 
REPLACE Date WITH T_Date 
SET FORMAT TO Iscreenl 
READ 

SET FORMAT TO 
ENDCASE 
ENDDO (While partnumb = " " ) 
*----- Return to Master menu 
RETURN 

*3 ma^ju £-obj_JI j*_J ZA&> SAULS' Ijl-j g-'b^JI q-o JjMl *yj>J\j 
oLil_*-JI Sjl*IJ i_aJLo »tXa xSj -lUi Juo . aJLpjlIwL »jLsJI £-ol_ij_JI jljJl^j 

. (Master. ndx) JjUJI ^^ill >-iL > (Master. dbf) 

JUbJI aJu* ^1 (X) S^iJIj . (X) JLJUI Olk^, (Partnumb) ^ijaJI j^iill 

2b,l^jdl 2lSJL>JI JlJAJ IjLjJ aJi . lJ^-\j 5^o JSMI J* Ojl^&JI $SL>JI Xj.Ut jn^.t 

Jl^u. *jl» *J cjJJ[j ^jjLxJI ,ji._^-p ^-o (Header) ^1^-* J°_r*j 3L&UJI £***j 
^_j<ill ^ jfcJ>JI IJU6 j^^-r,-^ i_xiLil v.jjJLkll *>-»JI jfcJj l ^* >j^j>«i«JI 
*>>JI jiJ, *jb£ q^j JU-^I ^L=-a- J* U ,. o ll l *]^OL v?^* (Partnumb) 
9>»JI lJu»j . V"^-*-" 5-jLsJI Jl £>*>![} t-L>\J&\ <aLJI ^ g^iJI Jl ^c>)j 

: SJlxJI ^k II ^ q^xj 

Partnumb - "X" 

DO WHILE Partnumb # " " 

CLEAR 

§2,1 SAY "Add New Part Numbers" 

@ 2,60 SAY DTOC(T_Date) + " » + TIME() 

@ 3, SAY Uline 

■? 

■7 

*_____ qet proposed part number 

Partnumb = SPACE (6) 

@ 15,6 SAY "Enter partnumber(or press " + ; 
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^Jk Jill J-*Aj g.brt 



•• Return to exit) " GET Partnumb 
READ 

jjlf 1 ct~~, . ^^--3^1 w&ill ^ *>»JI fJ, a* *i**JI (^ (Uppercase) 
. jiJ^JI II* ^ ^*»JI ^ (SEEK) ^*i\ »JuiOL«-j jUH « (j-^io 

: \JI*JI a*-!*-*" J* 0?J' '^ tA* 2 *^ 

Partnumb = UPPER (partnumb) 
SEEK Partnumb 

. .ju>i«JI <JU-jlj L» J* * Lj jl^l iUjL jj-^io goli^J! <>* £j[>" ^J^L? 
l'^. «j IJuh Li , (Partumb = » ») ^ Lojo* J,*' :UUJI ^ 
^j . (Partnumb) *>»■ j^Sj ^1 <jI*£ qj& JL»-^I j^Lsi* J* -I»*-£»j »a»«s*JI 
Ha, . (ENDCASE) ^*Ml cS -Lj ^JJI _^Ml Juil3 »J ?^.l£jl ^*-o xSj 2UUJI aJUk 

ju,!^! **UJl J,! ^ ^jil J»j-aJl o^ sJl^Jl «wi ^ g^JI Jl ^^ 

ju *>>JI lJu* D I ^ju^j II* o 1 * « (CASE FOUND () ) l*)l±JI SJLJI ^j 

lift ^1 4j t^>>7 <JLui_j tji>j-*J >JL»C^uil <U*i3 jhlj .iLlJJ . <_a11I j-3 aJUoI ^j-w 

(WAIT) ^»i\ »Ijl&X*J £_« v^-tlJ ^-/yJI J^J Jl ^L-s^Ij *jUij • *y?j* &J\ 

..tfA-ll 1 l5 i«j IJla li • (CASE .NOT. FOUND()) fcUUJI SJUJI ,yj 

tyStlSt ^jjlj g-«Ljj-JI ^jli -ULJI 6JUb j^ij . h nJLLI Jj-la ■»>>■>• ^** LJj J*-*l 

oliSj J ^L-*jr»Jk_p *-o v-LueJI obLu tjIj JUol^ ^jl^XmmJLI p^y-i jJ JU-j^II 
^lijjl ^k^l^j ^-^Jl ^jj JL»-^I jk^j Ulj . JU-afl $^>L& J>U- ^ t.y*}\ jk3j 
^ (Date) JjJlkJ jJ-T ^jjb JUol *_S_j US' . (REPLACE) ^*i\ Jj^Jb <y> 



?JbJI ^jJa-JI qa *y*}\ lJUb J^Xjj 



DO CASE 

CASE Partnumb = " " 

CLEAR 
CASE FOUN D () 
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%S ^ J » JlU J-tu ^bji 



@ 20,10 SAY Partnumb + "already exists" 

? CHR(7) 

WAIT 'Press any key to try again" 
CASE .NOT. FOUND () 

APPEND BLANK 

REPLACE Part_no WITH Partnumb 

REPLACE Date WITH T_Date 

SET FORMAT TO Iscreenl 

READ 

SET FORMAT TO 
ENDCASE 

£2>»JI >Ju W Lwil o^j jJ li^ . (MMenu) gtv^JtuJl^ 2L«UjI V^j-'' <«jLaJI 

*JjJI a-JUJI Jl tJ-»-j-i\ [Zi aJUJI ftl* ^j « jk3_, ,3] Jliol 




oOLUI Jl JtsLi'SlU Jji*JI P LJ, (Page Title) <>*i«JI \jU> ^j* ^sJI 

qXIo] jujusO ^ j^Sl oLuliUI ~*p (^a, . (Command file) ^Ji\ ^J_L> 
(Master. dbf) ^--^Jl UtUS w^k? • ^^ **"** -hi^" J-^j Jj )-*-~J I 

. aj JU>UJI ^jjUiJI ptijl ^ (^xijjJaJLI ^^.u »jj 

: 2LJLJI *I>»-MI ^ 1**->S. jk2j t5 «-i>ll *-iUJ fcjJULo ^hjj 1 * 3 **t)l ^^j 

(Current stock) <JUJ1 j^JaJJ ,^>E N - t - \t 

J_£ |^-M.I 6** ^ Qj>d\ ^ oLl^MJ JUJI i^jll ^jj ^j^axJI lju» 



(Dot Prompt) SJaJLJI 



lol 
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,,-jpi vJUl Jjiju g-bj. 



USE Master 

CREATE REPORT Allmast 



aJUJI bi* .J A*.5L 



^ JsuOLj . j j j &1\ «_iL. j^u.1 _jjj> (Allmast) ___. 

U- 1 u^h^ c^j d^" o^ 1 ^ U*v^> #i—ii ^iP^i £~~j >z\j£ j^ 



<>Ju<nj 4*fi 



UJI o>LUi'l 'pj ^ Jbdi J^j|,. r ^iui ^,^1 jXa, j* 



[Pagetitle 

Page width 
Left margin 
Right margin 
Lines per page 
Double space report 


Current stock | 


74 

1 



52 

NO 



( i - \t ) J£& 
: ^Fi\£ (ColumnsJ^SzJI Sji^I ^LjX^vo jujl>j ^ L£ 



ICblumn No. 


Contents 


Heading 


Width 


Dgcimals 


To^alJ 










1 


Part no 


Part No 


6 






2 


Title 


Part Name 


20 






3 


Oty 


On Hand 


7 


2 


N 


4 


Cost 


Unit Cost 


9 


2 


N 


5 


Reorder 


Reorder 


8 


. 


N 


6 


Location 


Location 


9 






7 


Date 


Last Update 


9 







( o - \i ) J£& 



tor 
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,,-JjJI ,_iUI J-fcUf ^.hjt 



aJ C>Jb~*i\ ^y>JLi obLo ^jii <OpLJ© Jlhj _>Jj^xJI JilA n^b^xJj 
_^£dl ^L, 5JUJI oJub ^ . (REPORT FORM Allmast) ^1 ^iSJ 

: 5bL. Jfiltf 



page no 
102/20/90 


Current Stock 




Part Ch 
No. Part Name Hand 


Unit Last 
Cost Reorder Location Update 


EBB Floppy Disk 
AAA Printer 
22Z Bicvcle 


40 14 10-A-lll 02/15/90 
10 800 17-B-233 02/10/90 
10 80 19-C-175 01/01/90 



(Reorder) ._>1UII a^- ^±JSl1 Y - t - St 

Ui" (CREATE REPORT Reorders) jJi\ j-^-b ^ o^Llil .jl^ 
: JUJI J&JI ^ ^a^^il o>UUll »Ijl>^u.I »sj, . ^Lsui\ i $- i ~»> 




Page width 
Left margin 
Right margin 
Lines per page 
Double space report 



77 

1 



58 

ND 



( v - \i ) JS^t, 



toT 
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&^Jk _W1 J-JLAJ gJlj, 



; ^t\£ (Columns) .^Szll 5ju*I oL»jX»*o JUol »2j IS 




1 
2 
3 
4 
5 
6 
7 



Part_no 
Title 

Qty 

Cbst 

Reorder 

Location 

late 



Part No 
Part Name 
On Hand 
Unit Gost 
Reorder 
Location 
Last Update 



6 

20 

7 

9 

8 

9 

8 



2 
2 





N 
N 
N 



-*l m< z* 



( A - M ) J£& 

Lt jop ^^ axJI JiA 



: ^SSII ^SxJI >»Aj *JUJI 6Jub ^ (REPORT FORM Reorders) 



Page No, 1 
02/3Q/9Q 



Goods to be Reordered 




( \ - u ) JC& 



I ^i-abl i__bIjli*c* 21 _j-*^5j T — £ — M 



,J <>^\ji\ o5LUI JU.il £. « (CREATE REPORT Onorder) ^1 



\al 
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^jl uiU Jjiftj g-bj, 



: JUI J&JI 



j|3a^;;MtQ;©;ll;j;n^ 


jjijIjjjjjIljjjjIjjjcsEiiiqDiffin 


Page Width 

Left Margin 

Right Nfergin 

Lines per Page 

Ebuble space reprot 
— * 


77 

1 


58 
NO 



( \* - u ) jla 

JS^JI ^s B^^l obLJL fcLx^L. sju**I oblu JLs.il ^l, L£ 

: JlsJI 



1 

2 
3 
4 
5 
6 
7 



KSy^jsjyi5iij<S55«S38SSS8!li' . 



Qrder_date 

Part_no 

Title 

Gi_order 

Cbst 

Cbst*On_order 

Vendor 



if 




Order Eate 
Part No 
Part Name 
On Order 
Unit Oast 
Total Obst 
Vendor Naire 



8 

6 

15 

7 

9 

9 

25 



2 
2 
2 



N 
N 
Y 



( \\ - \i ) J£s> 

(REPORT FORM Onorder) _^Ji\ SjLxS" ^ ^jtdl ^^Jj 

: te* ^tf ^j^il ^u SJUI 6l* ^ 



loo 
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^--SjJI uil\ JjtAj g.bj. 



npra 




JaaKStaziffl 

WUMMM 



m 



$ii 



1 

i; 



m 

im 

tot* 
tH-A 
:: $■: 




:p!ianra 







mm 



PIPS 



ttttftl 



iiiii 



Order Part Part On Unit Total Vendor Name 
E&te No Name order Cbst Cost 



01/02/90 AAA Printer 5 800 4000 Micronet Ocmpany 



fflffi£iiiiiii;;;i;ii; 



i. .uuiiii.i 



( \r - u ) J£a 

UL&JI ^ ^J So^^il oliLJI ^^^ r ^L ^jisJI t La Js^Lj 
^ (Y)jL^I JU.il l y iMi jl3 oV! jJij * (Total Cost) U£\ 
. Sj^pMI obLjj ^UJI JS^JI ^ ^1^ jt, L£ (Total?) ojI*J| 

(Purchase order) P \^ZA\ ■ .It- I - £ - M 

£-<-LH J>U» ^ l4*U J^^JI jxIj ^1 j^lJUJI Jl*I yfc *|^jj| Ul. 
<J-* u*lh4 5"LWb • (Master. dbf) iS ~~?^J\ ^iill 'j-JLajt 

SJ Wl ^UJI gJ^JI ^^ ^ . JUI 4 jj» 3, ftjLJ^J "^'jJI iJuJI 



||fpiWaf|MjH 

If) 1J [MltnJ DO Ij^ utftMiiiSiSjeeB^ 



Ch hand 
Qi order 
Reorder 
Unit cost 



30 
10 
50 
100 



— ,j.M 



iHiiiii 



•niips 

'■'■'' •'iiiiiliiiililiiiiiiili 



( \r - \i ) J5^, 



\a-\ 
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^--1,11 .JOll JjiAJf g-hj, 



(On Order) l^JLL ^5L>M J-M ^-^j oW' is* S-^jil (Suits) 
vj) Jin. cJI JjlJI oJlp ojl»o .tUi J* pbjj . (Reorder) v-JLUI jl»-j 
JI>«JI »L1 ojlJI 11a JU-jL ^>Sjj . oj^^il (jalJI ^-j^d LajIj-A 
v-JLLII Ju- Jl cJLaj ,jdl oLuoal ^L £* 2LJU*JI oJuo ^I^Sj j^Ijj . t * r *_»_lJ 
cJjL-o J5" ^ ojjQJT aIjlp^II JU-ol ^ ^Ua^l J^jj • (Reorder) 
JUI JkliJIj . \j\j~Ji\ 6^J *|j-£JI oULU JUUaj LJT ^Li^JI -^ 




Please send us the following items. 



10 suits 100 

5 Printers 800 



1000 
4000 



Total Cost 



5000 



Jfeil to AAA Qiqpany 

12 - Ahram Street 



( u - u ) JSLs. 






>£ 



SlsJI ^*j « ^-j^LsxLI V«*S>JI **5llll ^^jlj ^JJI (MReports.prg) 
jj» ^i-al g-eb^Jlj . <o^Li» k-j^ikll ^j>axJI L^u >jl>^«J,I jLc>w) ( _^dl 
-LpLis "*-Sj>i» t>* f^ t5^-" (Orders. prg) plj-iJI oULL ^b^j 



»ov 
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^-jjJI _*UI J^iAjr g.b^ 



4jajklflJI Mj»la_^i ( M«i ^->*i \ "" 2. ~ It 

*** + *****• + **** MRoports . prg 

* Present report options for Master file 

* Called from Master menu , MMenu.prg 
USE Master INDEX Master 

*«_-.„_ get up loop for presenting menu 

Repchoice =0 

DO WHILE Repchoice # 5 

CLEAR 

@ 2,1 SAY "Master Inventory Report Options" 

@ 2,60 SAY DTOC(T_Date) + " " + TIME() 

@ 3,0 SAY Uline 
*? 

? 

TEXT 

1. Entire inventory 

2. Reorder report 

3. On Order report 

4. Purchase orders 

5. Return to master menu 

ENDTEXT 

@ 24,1 SAY "Enter choice (1-5) " ; 

GET Repchoice PICT "9" RANGE 1,5 
READ 

* - - If not choosing Purchase orders, ask about 

* - - - printer . 
CLEAR 

STORE « » TO YN, Printer 
IF Repchoice < 4 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



^-Jjl UUI JjtAJt £.11* 



@ 5,5 SAY "Send report to printer ?" ; 

GET YN PICT " !" 
READ 
CLEAR 

*_____ set up for printer. 
IF YN - "Y" 

Printer = "TO PRINT" 
ENDIF 
ENDIF(Repchoice < 4) 
DO CASE 

CASE Repchoice = 1 

REPORT FORM Allmast & Printer 
CASE Repchoice = 2 

REPORT FORM Reorders FOR (QTY + On_order) ; 
< = Reorder & Printer 
CASE Repchoice = 3 

REPORT FORM Onorder FOR On_order > ; 
& Printer 
CASE Repchoice = 4 
DO Orders 
ENDCASE 

* - - - IF report not going to printer and not 

* - - - exiting program , pause . 
IF YN # "Y" .AND. Repchoice # 5 

? 

• 

WAIT "Press any key to return to the reports menu" 

ENDIF 
ENDDO (Repchoice # 5) 
RETURN 

ciioj (Master. dbf) j^—^JS^JI cJill ^p »jzj *J . -GUjcl-.'L ^^aj 
UUJI (^jjiJ JUi juu *JOj • (Master. ndx) <j ^UJI ^j^ill 
>Ju*Z*JI jliao ^1 oljLj^-'ill Ul3 ^^p L^bU. ^ *2j ^ill soL>iill 

— 
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^-Jjl _»UI J-iAJf g.bjj 



: SJUI jjL^J\ q. 9 y^\ lift Q&Jy . v^kll ^J&\ fj> I^jl. 

USE Master INDEX Master 

Repchoice = 

DO WHILE Repchoice # 5 

CLEAR 

@ 2,1 SAY "Master Inventory Report Options" 

@ 2,60 SAY DTOC(T_Date) + " " + TIME() 

@ 3,0 SAY Uline 

? 

7 

TEXT 

1. Entire inventory 

2. Reorder report 

3 . On Order report 

4. Purchase orders 

5. Return to master menu 
ENDTEXT 

@ 24,1 SAY "Enter choice (1-5)" ; 

GET Repchoice PICT "9" RANGE 1,5 
READ 

jb^* *> U$lij| v ^ ^i\ ^jjUsJI ..xajuj J^VI S£UJI oljLzi.'fl, 
£-.bJl J^Lij Jl ^a^ oU (4) fSj jLxj^I LI . JujlUI obLJI 
*_Sb-«Ml i^jLiLj >jlo^uUI J* <J>j*-i g-ebj_JI Ijudj . (Orders. prg) 
^ikll 2USJI JljJl^j <J «*sjj t (Reorder) vJLUI jl*. ^ J&r ^1 

• UJI p Ij^UI ^-eljl sPUJaJ j^sb^JI »jJU *J . t— iUtfi J-^ (V* 

(Printer) « (YN) Sj-SlUI oI^-jul* ,lajg Ijuj ^jWI p> »J[j 
^j^sJI KpLL ju>j tf lil ^jiiouJI jjy* *S . (" *■"') 2UJUI U^Lkp[j 
^ J& ^1 oljLi»MJ v-^ 1 ^ *&h * 1£>\jS1\ ,> "-^ j S*jUJI Jp 

(Orders. prg) g-b^ Jl £^l» (4) jLii.'Jll M JJij . (4) 
. (Purchase orders) pl^l^l^l ^Lkj ^Sj ^JJI 

(IF) Juu sy>-jl\ J»yJI U (Y) jLxs^ll p.a-v.t.^.II jLx»o Ljll*, 
j-jJL^lJI ^ (TO PRINT) 5jL*JI £-»>iJ ^1 11a ^-sj^ . jifl^J 
: 5JlxJI j^^k-JI ^-o r.y>J\ lift q^Xjj . (Printer) 



n« 
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^-JjJI UiU J-*A» ^Jijt 



CLEAR 

STORE " " TO YN, Printer 

IF Repchoice < 4 

§ 5,5 SAY "Send report to printer ?" ; 
GET YN PICT "1" 

READ 

CLEAR 



*-'---- set up for printer. 
IF YN = "Y" 

Printer » "TO PRINT" 
ENDIF 
ENDIF (Repchoice < 4) 

. $U*\ &*, ^JJI (Allmast) ^*d\ &J& ^ ( 1 ) flj\ jUio 

(Printer) j-Jiill ^ jj^ — «^U ( &) j-^UI <Jb JjukiuJ Ji^->L, 

: ^flt? c-^^ 1 a* J ■ ( T0 PRINT) ^j < <uS fc>JI JLwJUL 

REPORT FORM Almast TO PRINT 

(Reorders) ^jj- 2 ^ 1 oi*^ 3 f^ ( 2 ) pM f"- vA>t ^ j^J Lo-w*> 

. cJLkll Jl*. q* 1^*^ J-*-3 (5-^JI 

« (Onorders) ^j>SsJI **L1> *Zj (3) ^3^JI >a»jl«JI ^U*v> Ljo^j 
JtLlJlj . JaSi V JJJ1 CoJ oLm^ I^L* a*->3 ^1 oluoMJ ^ . U L -iLlij 

. (On_order >0) JL^iJI >Iju*x*J jjj/Js £-* 

^ jl-JLj <JLLJI »*^bJI oljLx^^l ^1 (&) jj^UI *Jb ^Ijl*a*-I, 
. -jL>i«il jLii-l u;*-^ JL&liJI J*, -ub^p jl ^jjSxi\ l*LL ^ »^j>odl 
^.t.JI ^1 (y") o^>JI JiJu oli ^j^HsJI S*LJ> >JL>jLil s\J lili 
jJliill ^J (TO PRINT) SjLjJI JL^I Jl ^a>j I3u»j . (YN) 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



y-jjl ulU JsiAj g-brt 



SjL** JL*J Jl tfzyj Jbdl, \\*j . C U^I j**, LS (printer) 
^pLJo Jl (j^j U. « (REPORT FORM) ^1 Jl*j (TO PRINT) 

<Gli « <OpLL Qji Jala ^LUI Jp ,-^SxJI ^iy* p.jsclJl\ z\J li>l U 
jJL^Ji! JULj . (YN) ^Aill ^ (Y) ^ ^1 ^J ^T JJ.JU 

,^11 ^Aj-j Iaaj . UU» (printer) ^Aiil JJ^ , (IF) juo Js^iJI 
-l^p ^ JUL, . (REPORT FORM) "^1 Juu SjLp ^1 ULbl *Jl* 

. us u,aj\ ^ 

^1 ^,-Lx-j ^-Li>JI (J « (4) jLzi-'KI >Juii«il jUio Ljul»j 

. Juu UJ -c*ulji jfcS**.. ^JJI (Orders) ^jki\ ^ob^JI 

: SJUI ^j^Ja^JI qa Q/J&J 4*-j-& J-— ^JJI tiJliJf 9>>J[} 

DO CASE 

CASE Repchoice = 1 

REPORT FORM Allmast & Printer 
CASE Repchoice = 2 

REPORT FORM Reorders FOR (QTY + On_order) 
< = Reorder & Printer 
CASE Repchoice = 3 

REPORT FORM Onorder FOR On_order > ; 
& Printer 
CASE Repchoice = 4 
DO Orders 
ENDCASE 

AJtj . Sjulkll Jp (j-Jj ^liJI Jp ^J^JI Joj* »JLaCL«il jLsi-l <JL- 
J*JL»oJlj pSj »3 . -LAiLiJI Jp ^Jj&}\ obLj Sfr 1^3 »Jc>0Ujl £*k2**J J--1*- 
£_. ^J-T UjJ jlxio JL>. j^? S^ ^JjlaJI *jl3 Jl ^^U j-lxLo ^1 Jp 

jjjLfcdl jj-Li^ cr* £ju-*JJ ^ 5 ) H->"" ->'■**'«! J ^U-LsJI <-*.«<■>■ ^jjUxJI 
. (MMenu.prg) (5 «- : J > ll • kjLLI J-Ji&j g-lijJ V~^' *»j^I J' SjjjJIj 

^-objj ^Li (Purchase orders) * lj_£j| j-ol^l *pLla jl (jS>_>jJ 

el^-iJI j-ol^l ^»Ljj_j Jl £>_£2j (MReports.prg) j jjl SiJI 

_ 
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^ji vim jjtaj ^m 



JuIjlJI ,J j4» . cJULbj bjl* ijzyj g-Li>JI 1^*? • (orders. prg) 
JJdl'uJU-^ ^ (Master.dbf ) ^-J^l Jill J>U. ,io«j 1 u-^o 
(On hand) M-i Sa^^il S^ 1 £»w ^ jUi t^z^j • U4* 9 y*i 
,-JUII Jw*j ^-^11 aMa"( 0n order) wJJJI >=^>3 *-*£)! J* 
-oli « V IUI jia. ^ Jij Ulw» L^i Ju>o 3^« JS* ^j . (Reorder) 

pl^U^I Jut/ij . JJL-JI IJUh qj» Ujl^wA v-Jj I In 1 1 ^UoiHl j^* »« X*A mJI JL--J 

J>j . ,£sJI ^1,1 ^ oU < U^ wvjlkll JluoMI JT JUal ^^o 
J (On_order) J&>JI ,J Sa^^ll ***^' ^^^ j»j^j *s*3>JI o"-* 5 
JS3 w^ J^ 1 '** l* 1 * S^-M V^ 1 £*^ -^ij « tf-iM ^W 

: ^K C l^3 ^j (PSEUDOCODE) 

. <u (jaUJI ^^aJI w-ftLj obLJI SJtplS Ji» ~£i |k*j - T 
. (Master.dbf) ,^-^JI Jill JXi- Id!^ ttU ^j^Sj ^ - T 
c*^t a^oSJI ^o (on hand) JLJLiil . <-«£)! £^**wo jLs_i.l ^ - I 
:LwjJl» jtUij . V I,UI jl»o £-^J>JI ^jl£.j (On order) c-JUJI 
. (Master.dbf) ^--JjJI Jill .JluJ q* Jjl^, J£J 

. £*»1&JI >umo SkSj - 

. <UJi» k-*»iJ ^JJI J,i,inJI <JL»- ililiLj ^j* *£j - *\ 

. JJL-oJI IJLA qa IfrJUa v-jJLHI 3jm»£II (^* »Ju>JL«JI Jj>«i *SJ " V 

._**o ^1 2L«5JI Jioj ^ill (New_order) Ja»JI c1oJl»j ^ -a 
^ijl (Order_date) JJbJI vioJL»j JJJ^j Jjl-JI ^ I4JLU 

. Ji~JI IJL^J JLL jjj jo,b JjUj 

. SjjJ-LJI oUJSJ. (Temporary File) o3y JL P ULil »^j - 

(5 *u*s > ll JUI ^ (On_order) ^JLkJI c**3 J5* cto^ — »j *^j - 

. (Master.dbf) 

. ^i*JI ^1 (New_order) Js»- oby^vo BaUI jwXj - 

<jjJLkll wilLfi^ll ^liLu J* t£jio+j ^JJI « 0J3H Jill £& r-z-i -IT 

. jkSi 

^^--JiJ .iUij (Vendor) ^SUI Js* Jp p Lu Jlil Ijjb ^^ ^ -\i 

' . o-JLJU v-^ 1 ^ ju^^i 

LiLUobll ^ JL'wa J5U 6j*-wj Ji-aJI ^wl^ O^JLIail 'Lwo^JI ^pLJa *Ij - \ V 
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. -oly^j tjLuoMl 6Jub -J <j_jJLLll ^ISILI *-wl **LL jkij 
^Sb Jl JUfctfl .iUJ^j < S^ULII J* SJljJl* ^JL^ Jl JUzrtll ^ -\\ 

. cj>JI uiUI ^ (Vendor) JuJi* 
. cu3>ll wiill ^ o-JUl /um^>J V^^ V-*^ »** j-S-J -T- 
. jjjUsJI g»b^ jl SdjJfJ 2ujUJI j35UI »xj »ltsrfl jul* -n 

g»bj»H <uL2£ A - £ - U 

^1 2uLl£ ^ ^b^JJ (PSEUDOCODE) SJj^l oj > L^JI <jlx£ Jl^j 



*•*****♦#******* Orders . prg 

* Create Purchase orders for reordering 

* Called from Reports menu, MReports.prg 
CLEAR 

USE Master INDEX Master 

* - -Make the loop, and display goods below reorder 

* - -point, and ask the user how many of each to order. 
GO TOP 

DO WHILE .NOT. EOF() 

* - Find out if on_hand plus on_order quantity is 

* - - less than reorder point . 
IF (Qty + On_order) < = Reorder 

CLEAR 

*----- Show status of item to be reordered 

@ 5,5 SAY "Part number: " + Part_no +" "+ P_name 

@ 6,5 SAY "On hand " + STR(Qty,4) 

@ 7,5 SAY "On order " + STR(On_order,4) 

@ 8,5 SAY "Reorder " + STR( Reorder ,3) 

@ 9,5 SAY "Unit Cost" + STR(Cost,9,2) 

* Ask user how many to order 

@ 12,5 SAY "Order how many?" GET New_order ; 



\M 
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PICT "999" 

REPLACE Order_date WITH T_Date 

READ 
ENDIF 
SKIP 
ENDDO (Continue loop until end of file) 

* _ - - When all orders have been placed 

* _ _ _ Make a temporary file of items to be ordered. 

CLEAR 

? "Preparing Files please wait" 

• 

? " (Prepare printer while waiting) " 
COPY TO Temp FOR New_order > 

* - -Update On_order field in Master file with new 

* - -orders, then set the New_order field back to zero. 
REPLACE ALL On_order WITH On_order + New_order 
REPLACE ALL New_order WITH 

* _ _ _ - use temp file (which contains new orders) 

* - - - - Indexed by vendor 
USE Temp 

INDEX ON UPPER (Vendor) TO Temp 

*----- Files ready , inform user 

CLEAR 

? CHR(7) 

WAIT "Ready printer and press any key to print orders" 

SET PRINT ON 

GO TOP 

*____._ Loop through Temp file 
DO WHILE .NOT. EOF() 

* For each vendor , print name and address 

This_loop = Vendor 

Mtotal = ^^ 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



l5 - s iJI Jill JjfcAJ g.bji 



? vendor 

? Vendor_add 
? 

? 

? "Please send us the following Items...." 

* - -For each item to be ordered from this vendor 

* - -print quantity, item , and price . 

DO WHILE Vendor = this_loop .AND. .NOT. EOF() 

? New_order , P_name , Cost , New_order * Cost 

Mtotal = New_order * Cost + Mtotal 

SKIP 

ENDDO 

* - - - When done with this vendor, print total 

* - - - Cost, and shipping name and address . 
? 

? "Total cost : " , Mtotal 
? 

? "Mail to : My company" 
? " 12 - Tayaran street" 
EJECT 
ENDDO (Continue for each vendor in Temp file) 

* - - - - when done, turn off printer , and return to 

* - - - - Reports menu . 
SET PRINT OFF 

RETURN 

j^ U,„\\ J>U- ^ JJhj . 4_i (joUJI (j-j-jiJI «-il«j (Master. dbf) 

: SJUI 

CLEAR 

USE Master INDEX Master 



tv\ 
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ir ^J villi Js*A* E-bj, 



(Loop) =u,!^j 2laU. *Llil -U5U- ^ *Ij g-b^JI q- ^Wl o^b 
JjL ^J| .jLl^MI j^p (Master. dbf) ^^--J^l ^Jil J5U ^^IJ 

6 j^j ,,.||-1| Jl* ^ ,_..).UII c^3 V^i* U^ S^^yi <«£ll £j-~»--> 

.jalJLI J!>- *£i [* '• -iL^I «£* obLi ^j* psj US' . oL-MI 

GO TOP 

DO WHILE .NOT. EOF() 

* _ _ - Find out if on_hand plus on_order 

* quantity is less than reorder point 

IF (Qty + On_order) < = Reorder 

CLEAR 

* _ _ _ show status of item to be reordered 
@ 5,5 SAY "Part number:" + Part_no + " "+ ; 

P_name 

@ 6,5 SAY "On hand " + STR(Qty,4) 

@ 7,5 SAY "On order " + STR(On_order,4) 

@ 8,5 SAY "Reorder " + STR (Reorder , 3 ) 

§ 9,5 SAY "Unit Cost" + STR (Cost, 9, 2) 

* Ask user how many to order 
§ 12,5 SAY "Order how many?" ; 

GET New_order PICT "999" 
REPLACE Order_date WITH T_Date 
READ 
ENDIF 
SKIP 
ENDDO (Continue loop until end of file) 

^ Di 3J Lfcii* pi; ^1 SJuJujJI V^ 1 O 1 ^^ 6lA O* ^*i> 

(Order_date) c^JJJI £o,b JJL* 1 US' . (New_order) JiJI 
a^UI j*j . JLl^II v_JLL=, -ui pi ^111 JUJI pJI ^L) 1 ^ *«s" (f* 
^ . sUjJI ^ QjUai pUu JzUU jo* aJU-J pi. ^JJI 

wiLu**s!l obLo £«* £«j J>U. ^ pi. ^b^JI ^ <±JWI *>*% 

. (temp) i5 o-j (temporary file) cJy U±» ^ SjjIUI 



nv 
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CLEAR? 

? "Preparing Files please wait" 

? 

? "(Prepare printer while waiting)" 

COPY TO Temp FOR New_order > 

tf ,»,. : .'j j> JI ^-aJLLI obLu J-|Jui3 -J>U» l> , jkJLj ^!>JI Q r'L? 
,jiuo ^ L^JLt. jfcj ^1 sjujujJI chLmXII Js- pbj (Master. dbf) 

t-JLUI CU-»J $-**£JI J_Sa- oLiL*j J-»JU*3 s^JLj ,*»_*». . uiUu^l 

. OLLJI JLm^JI Jl l$JJ» f-3 ^1 Sjujl>JI wSJl ^sUsL** (On_order) 

* - -Update On_order field in Master file with new 

* - -orders, then set the New_order field back to zero. 
REPLACE ALL On_order WITH On_order + New_order 
REPLACE ALL New_order WITH 

j^j LS . (Temp) cJ>ll ^iJUl £& <J>U- ^ *Zj ,^UJI o^b 
c-JLL> ^LL &£~i ^>- Ai*j . (Vendor) &JLJI J^». J* -cLw^i 
: aJUI j^k*JI JL. Q* Jib *2jj . 5Jl»» Jp ^Jlj JSo ^oUJI *[>_£JI 

USE Temp 

INDEX ON UPPER (Vendor) TO Temp 

^jLj j_£j *£jji ^i 2ui_ij ^l^ :LSl * A^ ^Lklf J-.-A.aj 

**Lkl l$JU-b (j^l ^L^j S2JL- eLiil *ij US' . Sjl*. ^^JLp (Vendor) 

CLEAR? 

CHR(7) 

WAIT "Ready printer and press any key to print orders" 

SET PRINT ON 

GO TOP 
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*----- Loop through Temp file 
DO WHILE .NOT. EOF() 

(Mtotal) Sj-ili j-Jx* *LSJl ^ L£ . (This_loop) Sj^lS 
JUU, ^ US' . P kA JiU JS J -SL-M jl— ^ JS3I £^»il v Lw>J 

This_loop = Vendor 

Mtotal = 

? vendor 

? Vendor_add 

* 

? 

? "Please send us the following items...." 

J£, ^UJI JU\-^I ol% ^^p *zj JLibdl ^U&JI «L»JI J5U- ^ 
^i <l*J 4^ ^ £JL *J3 3C---jjg iJSj « Sjl- J* (Vendor) ^U 
: «1»JI 6Jjb j*^! aJUI ^^LjU . (This_loop) j*as1I 

DO WHILE Vendor = this_loop .AND. .NOT. EOF() 

? New__order ,P_name , Cost , New_order * Cost 

Mtotal = New__order * Cost + Mtotal 

SKIP 

ENDDO 

\yL^\j ylUI IJ*J ^JKJI U&}\ *pU> fSj US . *U-*JI j-1 **u> ^ 

. (Eject) *»LLJI JQy JSi ^ f3 . <JI oL^II JUuJ ^ ^JJI 

? "Total cost : ", Mtotal 

•? 

• 

? "Mail to : My company" 

? " 12 - Tayaran street" 

EJECT 



H\ 
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^Jl SajJI, (Off) j^l l^^ J| iuUJI 8a UI pi* .dJi j^ . ',1^1 
: aJWI j^k-JI JMi. ^ jUij , (Master. dbf) ir -^JI ^.li^JI 

ENDDO (Continue for each vendor in Temp file) 

SET PRINT OFF 

RETURN 

15 3 < 3 ) H 5 -^ 1 A^ 1 *i> «>* i5~*L>JI ^-iUI JdJ^f e-la^ Jl Jlisfll ^ 
.(MEdit.prg) g-b^JI JLJLa ^ ^* . ^--J^l uJiUI j-jl£j «b^\jU 

: 15^^ O^ C-W '^ (PSEUDOCODE)" Ujft ol^k^Jlj 

• ^ o^^l o - -^ 1 , - iL »j (Master. dbf) ^-^1 uJil ^ j*Xj -\ 

• ^L* Jj^*3 v^l (Part number) ,->»JI *j, ^ ct^Ljl -T 

. UtsJI Jl ^»JJI ^, , (Part number) P j>>JI j, JUal »ju> juU - i 

JU^I 1&L& plo^Awlj obLu ^^p ^ « vj ikll o^' J* ^ytJI jo* - o 

. (IScreenl) 
*-o^JI a-jLL*!^ j*Ju*i~ai j-jJu»j ^ , VJ JLLil ?y>J\ J* ^yuJI ^ 1 lil - t 

**«t**t***»**<ii<it*»ii>t<i M i**«*{ M i*» l i > « (4ll i lftl i l{ { ij i lfll MEdit . prg 

* Edit the inventory Master file 

* Called from Master menu , MMenu.prg . 
USE Master INDEX Master 

*_____ start loop for performing edits 

Partnumb = "X" 

DO WHILE Partnumb # " " 

* - - - Find out what part number to edit. 



»v« 
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CLEAR 

§ 2,1 SAY "Edit Inventory Master File" 

§2,60 SAY DTOCT (T__Date) + " " + TIME() 

§3,0 SAY Uline 

? 

? 

? 

■? 

Partnumb - SPACE (5) 

§ 15,5 SAY "Edit for what part number?" ; 

GET Partnumb 
READ 

*____- Try to find that part number 
Partnumb = TIPPER (Partnumb) 
SEEK Partnumb 
DO CASE 

* - - - If no part number entered, return to 

* - - - Master menu. 
CASE Partnumb - " " 

CLEAR 

* - If part number found , edit using 

* - - - Iscreenl format file 
CASE FOUND () 

SET FORMAT TO Iscreenl 

READ 

SET FORMAT TO 

* - - - Otherwise warn user, and allow another 
* try 

CASE .NOT. FOUND () 

@ 17 , 5 SAY "There is no part" + "Partnumb" 
§ 24,5 SAY "Press any key to try again" 
WAIT 
ENDCASE 
ENDDO (Continue editing untill user requests ...exit) 

— ■ ^\ 
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*----- Return to Master menu 
RETURN 

**J »JL *SiJ&j^ g»ti>JI p+vli Uuj*2i\-i SaUtf Ijl*,{ g-)li>JI ^ J^ll c>»JLj 
<i u»UJI 0^4^11 v-Sioj ,*«-J>JI • aJJLI psSs *Xj *J . aSUjcUuIj ^l; ^ill « aJUl 



^jJI (Part number) ^>»JI «J, ^* «a*>JLI *£>!,>£» <£U ^;^5>Sa jwSj SaUltf, 
J5U- ^ .dui »Xjj (Partnumb) j*axII ^ ^jl^x. — LI -vii-Ju 



: IJIsJI jjL-JI 



USE Master INDEX Master 
Partnumb - "X" 

DO WHILE Partnumb # " " 

jlJjJI ^ .JlAAwJI Jjy« *J isJjJIj frb^b ^LiJI oih 1 * iAH* f^ H 
11 : JUbdl j^L-JI jk ^ JJiJ . L.ykLI 

CLEAR 

§ 2,1 SAY "Edit Inventory Master File" 

§ 2,60 SAY DTOCT(TJDate) + " " + TIME() 

§ 3,0 SAY Uline 

? 

Partnumb ■ SPACE (5) 

§ 15,5 SAY "Edit for what part number?" GET Partnumb 

READ 

-cjl* ,*^-h . Hj (Uppercase) l^S oj^* Jl *>»JI j*5, Jjj^* 3 f^ f- 3 

: ^tf Jlbj . (SEEK) j*Hl fck-l* 

Partnumb = UPPER (Partnumb) 
SEEK Partnumb 

UiJu ^Jdl *>»JI j^Sj J* ,Li jI^JI iUjI ^ JJi A*^ ^.b-rJI 1a*. (^ 
3LUUJI ^ rxt^lj XAUJI J***-. »JLj *3, ^1 <»A££*JI Ji-Ju J liLS . »JJ*Z*A\ 
I j| L.1 . ^-Jjl UUUI JafcAai V-AJI Ullll J 1 p^" J' tf^ l~ ^L^ 1 
11a obLj JL^u g-b^JI \i ( FOUND () ) Aft lib J* j^iJI *3j U, J^J 
g^m *J". U>L&j1 j*-, ^sJI (IScreenl) JU^I t&U J*i. ^ *>jJI 
JU.^1 S-iLs. vJUL. jiil {j^ {Jt . ,>»JI Uub obLu J-jJ^ ^aAt, IJ 

— — - 
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. (IScreenl) 

DO CASE 

CASE Partnumb = " " 

CLEAR 
CASE FOUND () 

SET FORMAT TO Iscreenl 
READ 

SET FORMAT TO 
CASE .NOT. FORUND() 

@ 17 , 5 SAY "There is no part " + Partnumb 
@ 24,5 SAY "Press any key to try again" 
WAIT 
ENDCASE 

ENDDO (Continue editing until user requests exit) 
RETURN 



m 
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cuji ui. jt»Aj g-bji 



ju>jj .JL-^I oLu*- UjI=~j u^Sj oJ 1 ^ 1 S^ b ^ 0-° O^ 1 '** 




lZjuuuJLI r«J*" 



u-*^:^ \ - ^ 



(Pos.prg) pb^ « ^>MI li^JtJI £-L*JI ^ ^S^l. ^JxJI (SMenu.prg) 
(Salreps.prg) g-linj < (Point of sale) ^Jl *Lfc ^ (vi>0Lj ,^111 
P^oLi^j « JLjlJJI oL*~^ ULi^» ^-bfr-J j^-xJT j-bLidl ^lLLj ^xJI 
VrfJI vl-^b • ^l—LI ^ ^W* J*^ C~^ ^^-" (Saledit.prg) 

"* : ^Wl J^JI or C^ g- 1 ^ 



Point of sale 

Date entry program 



From JMenu.ors: 
SMenu.prs 



1-Add new sales 

2- Print reports 

3- Edit sales 



Print reports by 
invoice or range of dates 



Saledit.prg 



Edit the sales 
transaction file 



( \ - \o ) JSLa. 



(Salreps) < (Pos) < (SMenu) ^J^ ^^S. >Ij ^i^ JUI P >>JI ^j 
. oUUI ^oJ^ ^UJI J-J&l Jl (Saledit) g.b^ ^ Jl*b 



\vv 
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(smenu.prg) SLx^o^l <ullZJI njall^t T - NA 

Still ^ (2) jJ, jLxi'Jll »jL>i«il jl^o LijLi* g-b^JI 11a J-JLiJ ^ 
. JL&lsJI Jp *JUI UI2JI j*k» g.bjl Jjlaj jiiAj*. ^UJI ^Ikd i~L?J\ 




1 . Eh tor point of sale routine 

2 . Print sales reports 

3 . Edit sales data 

4 . Return to main menu 



Enter choice (1 - 4 ) 



( r - to ) J£& 



iJtt ^87<^ < •J(PSEUDOCOOE) <J/)II ol^kkjl *JLx£ Jl **-U JLa 'a^Jl 

! 15^^ e^i -«> Ja - u a*-*** 

*••***«*§*•**•* ••***•* SMenu . prg 

* Menu of sales portion of the inventroy system 

* Called from inventory system Main menu . 

*----- Set up loop for presenting menu 

Schoice = 

DO WHILE Schoice # 4 

CLEAR 

§ 2,1 SAY "Sales system menu" 

@ 2,60 SAY DTOC(T_Date) + » " + TIME() 

3,0 SAY Uline 



IVA 
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? 
7 

TEXT 

1. Enter point of sale routine 

2. Print sales reports 

3. Edit sales data 

4. Return to main menu 

ENDTEXT 

@ 24,1 SAY "Enter choice (1-4) " ; 

GET Schoice PICT "9 M 
READ 

*_-_-- Branch to appropriate choices 
DO CASE 

CASE Schoice = 1 

DO Pos 
CASE Schoice = 2 

DO Salreps 
CASE Schoice = 3 
DO Saledit 
ENDCASE 
ENDDO (While schoice #4) 

*____-. when done , return to main menu 
RETURN 



(Fos.prg) «_jlJI 4*L=JLi r^all^ Y - \& 

. ~< r - to ) J&JI o- ^Ij _>a IS UUa ^Jl SjyU viJ *£l& ^ka 



\v\ 
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02/20/90 
Clerk 



Invoice number 



Customer 



Part # Name 



Qty Price Total 



( T - \q ) J£s, 



^111 J*mJ| ^ (Clerk) £*J| SJUj jOUUI UL^Jll ^1 SjL^ ..a^U) *yb 



( i - 1o ) 



02/20/90 


Invoice number . 


Clerk fflBfWffilffilffi 






mimm^MMWMxtTmmmMm, 


Part # Name 


Qty Price Total 



( i - lo ) J£& 



»A« 
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No such part ! i 

(Highlights) U^b ~8j>-p1 ^>3 US' < LJT ^k. o*Jf Iaa ^J U a^^ 

r _yh L£. (Selling Price) L ..II j — « -j < (Qty) <_*^JI JU.^ 

LJi ^ ^3 (Qty) U^ll vj-^» i>^> c>* J^ 1 -h^-JI V 1 —^ e-J^JI 
Illi-Jl r >y ^ JlsJI 0?JI Hlrt u-WI is 3 -^ 1 • 5 -^ jJI J^i r 3 (Price) 




7J7 voice number . 



Customer . 



# 



illNlsitiiie 



Shoe 



ftniiS 



( o - to ) J£& 




Invoice number - 



Customer z 



m. 



ICiiaiiniel 




iiS* 



( 1 - to ) J£$» 



u\ 
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oU— II «_iL. JjJLfijt _.b 



sr"jt 



-tUi j^Ljj, fcuLJI 2LU*J| ^ JlJLXj pAAaUl >>Lj « ,_j,;. ta J| |j^J ^J[, a«5JI 

: JUI j£sJI ^ 



:.#::::: 



&$£&£;;; 



A 121 m Shoe 
A-02 §1 shirt 




Invoice? number r 



Oustom&r ~ 




I::::;;:;::::::::::::::::::::::::;!:::::::::::::::::;;;; ;;:;;;p;jj 




w&m 




( V - 10 ) J&S, 



ll»J ) 6.XJJ-J ^^11 *>>J| ^^.J -Ullj l^>*>« U3j pjLiiuJI Jj-ju Ljl^j 
r-l^- J* J^JI *JUJI OJUfc ^ <i£~3 ( UT ^ ^jJI 9> >J| ^f ^ <J ^^ 

]Li_«JI ^Cj L£ . j^\ P >j. ^j, JubSj 9 -jljl ^j, lSU Jl iffj) Ch o > - ( <-- ) 
c La. Jp JaXsiJI 1 ^ t SSjLJI aJUJI ^ UiizJ ^^ JU-^I ,-bJL. ^Lp 
^io (Price) ^Jl ^ J (Qty) ^SJI ^f ojl* ^1 JL5.il ^ JU^I 
JU-^ P>f JI |j, (& J| ^yi ^ JbJL t v >k. ^p f>? J| IJut D l ^.l^JI 

oli < (Invoice) s^liJI aju» ^1% JUol ^ ...ia^JI l5 ^u J Ljulpj 
^Jh u-l*JI ^j^I *>-JI Jp Ush, >&Jii a*** l*J^ JLs.^1 C L&. J* La.^, 
LS* s^UU JSJI j*«J| ^»^j g-LijJI pSj 2UUJI 6^a ^ . (Part #) *>>JI 

IJLa £-^ . * ^ S^Ufl *jj» <pU Ju^ l^ |S| <Jh~J r JL>.7,„ g || *JU, ^J^j 

: JWI JS^JI ^ 



UT 
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Q2/20S90 



aierrk 



Invoice number : 



Customer : 




■ ii*imh 



■ 1 1 11 ■ 

m 



A :i2:i 

A-422 



lis 



II ■ I 
■ III 



iiitti&jinigi 

lllllllllltlllllll 
I II I I I I ■ I I I I I II I I I 



Shoe 
Shirt 



i 1 1 ■ ■ ■ i ii 



i 1 1 it 1 1 it 



iiOtiyi 




rat 



• iii 



1 1 1 

• ■ 1 1 1 1 iii 

■ iiiiiiiiiiMiii! 

1 1 ii i ■ ■ ■ if 
* ■ ii ■ i iiii 
|l ii ■ ■ iiii 



ijS&^jjiHi 



iiiiiiiiiiiiiii 
iiiimiiiiiiiii 
iiiiiiiiiiiiiii 
iiiiiiiiiiiiiii 
■ ■iii i mmiiiii 

:;JkfIHiC!6; 



( A - \a ) J£& 



»_jJj j>J t (Invoice) s^lill 6Jm> ^uLL ^sj (Y) ^aa^ J I 

Iiii ^s^j-l SjjJU SpLU Ju^j ^l£ \h\ »Jl^7 U Jly* ^^j 4- 

lilj . OuJJl*. Sj^U sJjJj SSjj-UI <j**AlJ SAj^a- 5-^U ,j2»j* A 



wJLI i_*.?.,£,,) Uaioj 



I • - — ' 

»-— — r-L7-"^ L/'-J* f*^ ^^ P**** VW"^ 

gJl'jLSti ^1 ^-Jl j^ (N) >L vU 

(PSEUDOCODE) -ul^Ml ^l^jU^JI <jt^ ^ - Y - >6 



Bj^U fJ^jj SSjj-UI «j«Jiij SAj>X* S^U Jbj* >2j (Y) jv*4 ljL-I 



0LL3JI ajI^ ^ . (Pos.prg) c«-j *Ij (Point of sale) 

. (Sales. dbf )oU~il U>L ^ S^U *3j _>»-T J* J>^>JI j»^» - * 
. £jJI &>- JLuld "(Temporary File) &3y U>L *L£Jl ^ -T 



UT 
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. s^ytUJI Jl 4JU0I »sj *>». J£J sjjl^t &U (lrtJ ia |kSj -«\ 

. (Master. dbf) ^y^-j^l 
• 2^ , H^I o-° £2>**" p^ f 3 -* ^ Jl»-»l /"^ J^ 1 * -A 

. e>» JSJ ^**Jlj XmJSHI JU-ol jfc£j -\» 

. Ju.X». |Oj JU-al j*Zj ( ji*e ) ^S JU-il JUL*- - » \ 

. (Total) jlyjJI o»j *j*j> 3 l^LwJJ JSJI ^jLji v L*». xIj -\r 

. (Temporary File) cJ> ,_aJL ^ SST^JI a.xA 0&* 3 ^ -IT 

. Jbdl Uc~J\ obLo ^^J jk«J| ^ aIj* SjLj xij -u 

^UJI U.>*j (v^j <_a,LiJI \j _^L« >iT Jl J^ jpi Jul Mo 

. J*l Jl Ij^ l^kw (Scrolling) 

8-^UlJ J£JI jhuJI .^p ^ *JLJI 6 Jm, ^ij . jLl-^I JUol 
j^>j ^IS" lil L* j» AioL-JLI Jly« ^iyi *sj »3 (Grand Total) 

. V r l S^lill ^U» 
J* *^H) « jl>*' S-Lpli ^M 3 '^w cA '•>' p-**^! J!>— j^j 

^ L£ (Database Files) ^LiLJI x*\j3 oUL ^^U-l ^ 

. (Sales File) ol**JI U»L cioJt»j 
. (Temporary File) cJ^II uJll £»-. jkSj -i\ 
. oIjuwJLI w^l JuJlill Jl £^*>ll *2j -r« 



\A 



g*U^ll 4_.t^ Y - T - \o 

• "15-^-" (>** Jis- 19 £«k«JI '-^ o' ^*-^ v?^j 2r°^l <jI^ J-*s 
f° -IJ-^J- 11 c'W -»** -^-T ^L-^ ^JL*- g- 1 ^ J' jrLx>o lL-.jjj 
jj-kui J£ Lu-ix^ 4jL,L^ ^JU ^ Jdhj (DBase III +) g-ob^j 

lil g.bjjl JM i. oLk*>UI j^Jal ^bS" .jlp J^i, jUJJ, . oDLoui 

dA • (DBase III+) g*b^ ^liJI ^L3JI ~*w*1I JjLiJL«,l ^ 

. JaSs -tArf£>jZU lift ol b . a -XoJI _j_jja_*u L_L>.>gvLm 






41o =V.jL» 

tn o,.Mi 



\A£ 
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: ^tf g.lijJI j^- **lS? fu 



*************** Pos.prg 

* Point of sale data entry program for sales 

* Called from Sales menu , SMenu.prg 

* - Get last-used invoice number from the Sales file. 
USE Sales 

GO BOTT 

Minvoice - Invoice_no 

*----- Add new transactions to a temporary file 

SET SAFETY OFF 

COPY STRUCTURE TO Tempinv 

*----- Open Master and temporary files 

SELECT A 

USE Master INDEX Master 

SELECT B 

USE Tempinv 

SET RELATION TO part_no INTO Master 

*----- set pointer in temporary file 

StartTrans = 1 

*----- set up loop for displaying invoice forms 

Again = "Y" 

DO WHILE Again = "Y" 

* _ _ set up top portion of invoice on the screen 

CLEAR 

Minvoice = Minvoice + 1 

STORE SPACE (30) TO MClerk, MCUst 

Mtotal = 

©1,2 SAY T_Date 

@ 1,30 SAY "Invoice number:" + STR (Minvoice, 5) 

@ 2,2 SAY "Clerk" GET MClerk 



\Aq 
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@ 2,35 SAY "Customer:" GET MCust 

@ 3,0 SAY Uline 

? "PART # Name", SPACE (20) 

?? "Qty Price Total" 

READ 

* - - - Set up loop for each item in the invoice 

Row = 7 

Adding = .T. 

DO WHILE Adding 

Partnumb - SPACE (5) 

ok = .F. 

* - - - loop to check validity of part number 

DO WHILE .NOT. ok 

* - - - Set up invoice memory variables. 
Quantity = 0.00 

Sel_Price = 0.00 

*_____ £3]^ f or p ar t number. 

Partnumb = SPACE (5) 

§ Row, 2 GET Partnumb 

READ 

* - - _ _ _ Make sure Part number exixts. 
partnumb = UPPER (TRIM (Partnumb) ) 

SELECT A 
SEEK Partnumb 

*----- Decide next step based on 
*----- existance of part number. 
DO CASE 

*_____ jjo part number entered 
CASE LEN (partnumb) = 
ok = .T. 
Adding = .F. 
*_..__ p ar t number does not exist. 
CASE .NOT. FOUND () 

@ Row, 10 SAY "No such part !!" 
OK = .F. 
*_____ part number exists 
CASE FOUND () 
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* - - - - -Display Part name, get 
*----- quantity and price 

@ Row, 10 SAY P_name 

@ Row, 35 GET Quantity PICT "9 9 9. 9 9" 

@ Row, 40 GET Sel_Price PICT "999.99" 

READ 

* - - - If quantity is zero , loop 

* - - - Else , Display total. 
IF Quantity = 

LOOP 
ESLE 

@ Row, 50 SAY Quantity * Sel_Price; 

PICT «##,###.##" 
Mtotal = Mtotal + Quantity * ; 
Sel^price 
ok = .T. 
ENDIF 

* - - - Add a blank record to the 

* _ _ _ Tempinv file , and fill in 
* the fields. 

SELECT B 
APPEND BLANK 
REPLACE Date WITH TJDate 
REPLACE Clerk WITH M_Clerk 
REPLACE Invoice_no WITH Minvoice 
REPLACE Customer WITH MCust 
REPLACE Part_no WITH Partnumb 
REPLACE Qty WITH Quantity 
REPLACE Price WITH Sel_Price 
REPLACE Posted WITH .F. 
ENDCASE 

ENDDO (continue loop for checking part number) 

Row = Row + 1 

* - - - Scroll screen if reached end of screen. 

IF Row >= 19 
@ 24,1 
? 

UV 
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ROW = 19 
ENDIF 
ENDDO (while still adding items to invoice) 
* - - - Display grand total, and pause before next 
*----- invoice. 
@ Row+2,40 SAY "Total:" 

@ ROW+2,50 SAY Mtotal PICT "##,###.##" 
Pinvoice = "Y" 
@ 23,2 SAY "Print invoice ? (Y/N) " GET Pinvoice ; 

PICT "!" 
READ 

*----- Print invoice , Reset Start Trans. 
IF Pinvoice = "Y" 

SET PRINT ON 

? "Date:" , T_Date 

? "Invoice number:" , STR(Minvoice,5) 

? "Customer:" , MCust , SAPACE(20) 

?? "Clerk:" , Mclerk 

? Uline 

• 

SELECT B 

GOTO StartTrans 

LIST OFF WHILE .NOT. EOF() Part_no, ; 

A — > P_name, Qty , Price, Qty * Price 
*? 

* 
* 

? "Total:" , SPACE(34), Mtotal 

EJECT 

SET PRINT OFF 

StartTrans = RECCOUNT() + 1 
ENDIF 
CLEAR 
@ 23,2 SAY "Do another transaction? (Y/N)" ; 

GET Again PICT "!" 
READ 
ENDDO (add invoices while user does not request exit) 



MA 
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*__..__ Close databases and update sales file. 

CLOSE DATABASES 

CLEAR 

? "Updating transaction file , please wait ..." 

SET TALK ON 

USE SALES 

APPEND FROM Tempinv 

USE Tempinv 

ZAP 

USE Sales INDEX Sales 

REINDEX 



SET TALK OFF 
CLOSE DATABASES 
RETURN 



qLh.i-i.JI uJlLo m] aJLi »-j . <OLpJlJLwiLj »Ls (_jJul «-oljj_JI a_wl » j 

^T ^^i* J>-a*JLI jJJij . <jwi ^j^s ^1 »Iju>^*.I qjo (Sales.dbf) 
^ J* *-*3j^» Sj-pLaJI j»J, q! ii^a- . (Invoice_no) s^li *Jj 

: SJldl jj Ja-JI J>U- ^ JUi |kijj . (Minvoice) 

USE Sales 

GO BOTT 

Minvoice = Invoice_no 

^ (Tempinv. dbf) cuJj-JI ^JJUI »Iju*z-J ^^j ,-sltll *>»JL? 
. (Sales.dbf) ol^J.1 c-iL Jl Igifc J-3 SJu jIjI ^-Jl^iJl' c^i^ 2 

JU-ol ^ * L^Lj'^II Juoj . i^eb^JI J^aIXJ S^aaS^ 4«b^u» ^AjJaJI 6 JUk ji^Jj 

. oL«Zj.I UiL, Jl ^*3l>AJI 6Jux a sLiLi g-b^JI >j!j , AjjJLkil ^!>ill 

J£jb £«J |wLj ^Sa. "(SET SAFETY OFF) ^1 Jji»aJ Lft JslXj 
aJLfc ^3 s^LxaII jjJl^^JI 2JLuj j^j^is' j_ji ojyll i__aJL1I .J oLkaJ.1 oLL 

. U*JI aJuj. £^3 SJbdl j^JLJI^ ULJI 

SET SAFETY OFF 

COPY STRUCTURE TO Tempinv 



\A\ 
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O^ 1 fi> J** J* »^ Crt^ 1 -^o {** f* • ^^ J*-* i-^ 1 -^- 
-d_».jLj ^Ul O-?-" >3j jl*£*l J* apL*j IjlAj . (Part number) 

(Relation) *3>LJI ^LiJl^ l >*iUI ^jJus ^xs ^-i»jJ *JlxJI jyl^Jlj 



U^J 



SELECT A 

USE Master INDEX Master 

SELECT B 

USE Tempinv 

SET RELATION TO part_no INTO Master 



t^JSil 63lL*lj(StartTrans) s^SlJJI j^scj, *l£jl >jl> JJjJ . lioLki 



>lll J>u. ^ (l) 

StartTrans - 1 

6Ju> ^i xi^xJI _i (Again) j^dl >Ijl»juuI j*^j> (Invoices) 
jt^ljj (Minvoice) j-jJoil $**3 SaL^ S2JUJI J>U. ^ *xi L£ 2ULJI 

. sjujls. Sj^aU Jl JU&jill jljl* 

s-^li J£J (MCust) ,-^dlj i (MClerk) ^jcX\ P Lij| »^ L£ 
skJ . Sj^jU J£ ^J ,_LojJI jxao[j re-"-; p-ilsJl >-4i=>>il jK*«l J-c^u/J 8ju.x>. 
: SJbdl j^k«JI J>U- ^ JJi, . ^j^Sidl Sj^LJI ^ U ... II ^^ -ij 

*----- set up loop for displaying invoice forms 

Againg = "Y" 

DO WHILE Again = "Y" 

* - - Set up top portion of invoice on the screen 

CLEAR 

Minvoice = Minvoice + 1 

STORE SPACE (30) TO Mclerk, MCust 

Mtotal = 

@ 1,2 SAY TJDate 
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@ 1,30 SAY "Invoice number:" + STR(Minvoice,5) 

@ 2,2 SAY "Clerk" GET MClerk 

@ 2,35 SAY "Customer:" GET MCust 

§ 3,0 SAY Uline 

? "PART # name", SPACE (20) 

?? "Qty Price Total" 

READ 

TL»j, . S2JL>JI 6Ju«> ^ j^S^idl (Adding) ^jadl *l£jl *ijj . s^UJI 
«LSJL>JI j-oj^ujj . ££>L£JI A? (7) *3j j l~- ll £y> p. I jccjI JLl.^1 ijij* 

. ^UL-JI aJL«> «3j3 V^' j>l»— J^ ' (P ar t number) 

Row = 7 
Adding = .T. 
DO WHILE Adding 




*JLj ^ (-F.) S~SJ\ ^Jud\ II* P Lk*l |^_jj . JLjJ^&JI 



2LL-J 



Partnumb = SPACE (5) 

ok = .F. 

DO WHILE .NOT. ok 



^-c 3ULJI <**SJI (j-jj^^J (Quantity) S^IS ^j<z* P l£j| pi. US' 
j^-o -iLlij . ^Ai-JI Ijla ^yu* Qjj»zi (Sel_Price) ^**sllj <<-LuJI 

Quantity = 0.00 
Sel Price = 0.00 



IM 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



oUj-JI <-iL. J,JLU g.b^ 



jlj^i »xj iJ < (Partnumb) _^J£ll .J jJJ^II I Jub qj>>J j»^ . JU-al 

at- -1^; -ulp v**>^JI xij ^gXa- (Uppercase) l^^S *-$a>»- Jl jJ^JI lJm> 

. 5JUJI csa £±,j3 5JLdl jJLjlj . (SEEK) ^fll 

Partnumb = SPACE (5) 

@ Row, 2 GET Partnumb 

READ 

Partnumb = UPPER (TRIM (Partnumb) ) 

SELECT A 

SEEK Partnumb 

•jLj^x^uil -Ui-jLj L> J* p Lj jk*JI 5UjI <d>U. Q* jvXj ^LUI p>>JIj 
JU-^I r-Lzio J* >jLiJLwil Ui>^ Ljlus . (Partnumb) _^Jull ^ 
(ok) j^iiJI ^ (.T.) <*JUI t >j>iJ pii *y*- & egl JU-al ^j 
2LSLJI q-o r-jj »JJ jtUij (Adding) j-*«ll ^ (.F.) a o'Sljj 



. iuLJI oIa 



9C*0^3 



DO CASE 

CASE LEN (partnumb) = 
ok - .T. 
Adding = .F. 

>Jl ^ uX.ui-II ^jjw>J *HJ i alii ^9 Sy>-ya jjj* pj*- *3j ,JLi-jl jfc*J LoJUjPj 

4_»^sJI ^j>>j ^jjj-L Qf- AJb jOjj . **sb ij* <JjLsnJJ -Lo^aJI djLLpN 
. 4-*-jLS s^o <jjL51dl <aJL»JI -uAju »JL) tjS x». (ok) >;J£JI ^ (.F.) 

CASE .NOT. FOUND () 

@ Row, 10 SAY "No such part ! ! " 

OK = .P. 

^Lj ^L ^-bjJI ls < * — ft-LLI ^J jj^->o ^J, JU-ol |x^j La^pj 
^ Jlw-j jvi (P_name) w-ii«JI j«-J J^o t-A^JI Ia$j ^LsJI olsLJI 



\\r 
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: SJbdl 

CASE FOUND () 

*----- Display Part name, get 

*----- quantity and price 

@ Row, 10 SAY P_name 

@ Row, 35 GET Quantity PICT "999. 99" 

@ Row, 40 GET Sel_Price PICT "999.99" 

READ 

JujiU SoIpI Liul P >>JI IJl* J>U. ^ jiJj L^ . Sj^jQjJ JSJI j»ji^JI 
aJsD »Jt»^ •■■ ■ - • 



Jljliol ill* ,J (LOOP) ^.Ml |.Iju>j^L SjJ&JI 4_SJL>JI 

Jp >i>ll »Jj3j *U* JU-J^T ^Ui* J* JaJLJ^j LJlJLp jjij . ( jjue, ) 

J>U- ^-o Ate> jiJLjj . <-*SJL ,joUJI (Highlight) ^j— iJI .i^l 

: syixJI ^l^L-JI 

IF Quantity = 

LOOP 
ESLE 

§ Row, 50 SAY Quantity * Sel_Price; 
PICT »##,###.##" 

Mtotal = Mtotal + Quantity * Sel_Price 

ok = .T. 
ENDIF 

jLl ^ ^Jij . (Tempinv) "is>il uWI ^ SLbil J^bJI Jl sJjflJdl 

: 5Jlill ^jJa^JI 

SELECT B 
APPEND BLANK 

REPLACE Date WITH T_Date 
REPLACE Clerk WITH M_Clerk 
REPLACE Invoice_no WITH Minvoice 
REPLACE Customer WITH MCust 
REPLACE Part_no WITH Partnumb 
REPLACE Qty WITH Quantity 
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REPLACE Price WITH Sel_Price 

REPLACE Posted WITH .F. 

ENDCASE 

END DO (continue loop for checking part number) 

oULj olxSJ Jl»-[$j jjJa-JI jIjl* SaLjj <N*. qa *Sj JlxJI O^b 
A_AL_Lll 2 L*->*3 j^lj 2U.UJI <jL«i Jl Jj-»>ll Juu, . JUI i Ji , ,. ; .. rJ I 

4l>>J iSi*-* 9 0* ^ f^ • ti*^ -^U -A*" -> ,jJU * (Scrolling) 
»-o JJij i <*& f.^ ^1 olx£ Qji S^Li-ll J* ^JL«i ^»-T Jl _j-i»yi\ 
J5U- ^ Ai£ jk^j, . ( W ) [3jl\ JtiP (Row) jJ»«JI jj, c^--i3 

: -tJUJI ^U.mH 

Row = Row + 1 

*----- Scroll screen if reached end of screen. 

IF Row >= 19 

@ 24,1 
? 

ROW - 19 
ENDIF 
ENDDO (while still adding items to invoice) 

^UL'jm^j & lil r J^s-il JlL, s^sUJI 6A4J (Total) j£JI >-JI 

§ Row+2,40 SAY "Total:" 

§ Row+2,50 SAY Mtotal PICT "##,###.##" 

P invoice - "Y" 

§ 23,2 SAY "Print invoice ? (Y/N)" ; 

GET Pinvoice PICT "!" 
READ 

^J, oll£ mSi jk5 . <-jUJI J*i-£j j-^S (Y) pJl&&JM v^l) L*U*j 

-M r ■ I' -> — i>» .±Lj-^_*J f — =j j^3 • (Heading) j-±>3zi\ 

. (Tempinv) c»3>II ^iill ^ J^«- J^T Jl (Record pointer) 

jJLjj . (StartTrans) ^*iidl ^ -uSj ^-d^ f" 3 tS^-" J-^ 1 >*> 

m 
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jopj . vJilll <A# l5 x* I^Aj obLo ^j^j JbJI ^Ja-sJl Jl JUxtfl 
Ljulp sjJjl*. s^jUiULkJ j-**^ (EJECT) ^oMI flAi^L <*jUJI 
. (StartTrans) i^lJJI _^juu ^ j^-\j IJJI3 (Tempinv) 0J3II 
<>ju* ^*j3 JlJlsJI jjJ^-Jlj . (Vendor) ^jJ ^sg ^L ^^J\ S^U 

IF Pinvoice "Y" 
SET PRINT ON 
? "Date:" , T_Date 

? "Invoice number:" , STR(Minvoice,5) 
? "Customer:" , MCust , SPACE(20) 
?? "Clerk:" , MClerk 
? Uline 

• 

SELECT B 
GOTO StartTrans 

LIST OFF WHILE .NOT. EOF() Part_no, A — > P_name,; 
Qty , Price, Qty * Price 
■? 
7 

? "Total:" , SPACE(34), Mtotal 
EJECT 

SET PRINT OFF 

StartTrans = RECCOUNT() + 1 
ENDIF 

Jr_C, oU gJiJI alj lil U • ("*") UUI <** b>£- (Again) 
,' *k-Jl , t>U ,-,-. JJs ^ • *al>JI J^JLa UBj^ *JWI •** 15b • ( N ) 

CLEAR 

§ 23,2 SAY "Do another transaction? (Y/N) " ; 

GET Again PICT "!" 

no 
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oUjjII uL JgL&jgA* 



add invoices while user does not request exit) 

i so^^il oJU-JI JUU»g g-b^JI pit JLdl o^' ^j 
x»J **» l—£ < oL«**ll i-ilp ^T Jl (Tempinv) 0J3JI 




DATABASES 

iting transaction file , please wait ..." 
jK ON 
jES 

FROM Tempinv 
apinv 

Les. INDEX Sales 

C 

jK off 

DATABASES 



UT ^l^A\ Jliul T - T - U 

.IjuWlJ ,2^. « »U g-ob^JI Ijjb 1 Jl La S^Utfl jJl^ 
S^j L£ . * JiJI ^ l-*s~> >W» jJuj ajU JJ^J . ^ ikss 
- o&j ,***». . -.ivr...,.!! 3Uk»JI ^JLLUj yJjjJsJl <_~»LJ 
jjL£ ^- Vxj ^Invoice) ^Jl S^U ^3 LJT ,^*-JI 

-» j£>. ULil fljl »>L JjJL«xJr 13m ^Lrt-^j • j>-.^- ^ ? H 

L,jua fJt (Master, dbf) .^.jJI oULJI ^ (Price) 



m 
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alm^ii Ul. JjAAJ g-lijj 



Lol >jJLL3 <ULL j] ijaj* »j>Aa.«..JLI «*2j g^»li>JI Iju*j • (SMenu) ol***il 

: SJUI ^t-LiJI ^^ g-li>JI IJ^a J^A-iJ J^*j • ( >-T 




1. By invoice number 

2. By dates 

3. Return to sales menu 

Enter choice (1-3) 



( \ - \a ) J£& 



Look for what invoice number? 



u*-^ 



j^; (Invoice number) Sj^jfUJI *J, JU-alv p<AA*-«il p>«J LoJl^j 




Part # 



_fity_ 



Fart name 



Price 



Total 



AAA 
BBB 



1 
10 



printer 
floppy disk 



( \* - \a ) J£& 



900 
16 



900 
160 



\\V 
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■stU^ll UL JjUJ g-brf 



J5U- £*JI %£h» obLj ^^jJ S-JlaJI ^ (2) jJjJI »jl*ol«JI jbu Ujo*j 

Enter start date : / / 

Enter end date : / / 

^uji ^rtj-s^i s&4 ^sU^i c^'Jj M^M c^^ r* *•"'■' ^ 'r*^ l-j^oj 



■ i i iljjiiil.iii i i i iP PPrrrrTT w..ii.ii.iiiluiiiiii.i i iu.ui ii yi i i ' Hi.iiiu.iiiLi.jii ii i.iiiii.iun..i i iu- 11 1 ' i 



•Pajgje iljf KJi; :!£::::':: 



.. ...,...„ — ... — __^... . _.._. -. J . JJ . . 



Safes 1 Transactions 



Date 



02/0 1^90 
02/10/90 



Invoice 



1243 
1368 



Sales 
person 



Hagdy 
Medhat 



Customer 



Salem 
Shawky 



Part 



SAF 
LAM 



Qty 



20 
10 



Sale 



700 
500 



Price 



* * TOTAL * * 



1200 



( u - io ) J£a 

Alb* (MODIFY) _^l jl (CREATE) ^JH JjlAO-,1* ^j^3s1\ pLiil &£*& 
CREATE REPORT Sales 



SMI 


f*S*S 


^V^^ ••••••♦J t" «■•••■■■■•■••• 


W$$M 


■^^•^i^^^^^rt^rt^^^ft^^w 




i 


Date 


Date 


9 






2 


Invoice_jao 


Invoice 


7 






3 


Clerk 


Salesperson 


14 


- 




4 


Customer 


Customer 


14 






5 


Part_jao 


Part 


6 






6 


Qty 


Qty 


5 





N 


7 


Cost 


Sale Price 


10 





Y 



( IT - 10 ) JiA 



»\A 
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oUjtll JSU J-AiXg-ba 



g^la^ <L4jtfl ^UUiJt 3ut£ \ - £ - U 

j^JJa g-b^J V^jJ' U^ 1 o u c 1 -^ 1 •>>*» ^ 
»3 ."txiji ^JJI .^fcJI k,i ^*">JAL»il J!y- ^* (Salreps.prg) 







1 _-mJ j JI UOJj ( Sales. dbf) oL^il oUU 

" . (Master. dbf) 

. * i i bm * **" j jkXj ™ v 

. VJ 1UI _jijSsi\ & o» ^.J^s-Jl jy« f*i -I 

aUJI UUL. .J <J^JI II* J* i^po Je- J/ O* l± ^i i] r* " n 
1 . (Sales. dbf) 

obUI J* ,L* ^^1 o-li **M» f=d Jf-JI 1^* > -i^ 1 ■"* " v 
. ^LUI 5j>tUJI d* *-»UJI JLlfl obLo SUU. ^ - A 

' . tjl^JI &\3j 2LjljJI fcfcb 0* 

Jl *J->»JI Sj^-JI q- fJi^I-JI UJU»Jij ^1 ^i,l^il Jj>»J j^si 

1 . JL^UJI Sj^-JI 

^j^JI ijy*» .IjlA^-L^ Sj-sill ftOu» J>U- ^rtJ 15 ^ 1 **M» f^— ^ 

. (Sales. frm) 

oU*JI g-b^J JU^-J^II U3LSUI Jl ej^jJI ^ ^Lp'Jll xi* -\T 

. (SMenu.prg) 

^H^ll <ufc£ *-£->• 

: Ubdl ^yJ-JI ^ £*JI ^L,to r b^ ^^l. 



»#**«»**#*****• * SalReps.prg 

* Print reports from the sales file 

* Called from sales menu, SMenu.prg 



l\\ 






J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



isUjjil .JUL J±&£jt ~b 



E-'W 



* Open files and set up relationship. 

SELECT 1 

USE Sales 

SELECT 2 

USE Master INDEX Master 

SELECT 1 

SET RELATION TO Part_no INTO Master 

Repchoice = 

*----- Start loop for menu 
DO WHILE Repchoice # 3 

CLEAR 

@ 2,1 SAY "Sales Report Options" 

@ 2,60 SAY DTOC(T_Date) + " " + TIME() 

@ 3,0 SAY Uline 

7 

? 

TEXT 

1. By invoice number 

2. By dates 

3. Return to Sales menu 
ENDTEXT 

@ 24,1 SAY "Enter choice(l-3) " ; 

GET Repchoice PICT "9" RANGE 1,3 
READ 

*----- IF not exiting , ask about printer. 

@ 5,0 CLEAR 

STORE » » TO YN, Printer 

IF Repchoice # 3 

@ 15,5 SAY "Send to printer " GET YN PICT "I" 

READ 

*_____ Se t up printer macro 

IF YN - »Y" 

Printer = "TO PRINT" 
ENDIF 
ENDIF 
* - - -Print appropriate report based on request. 
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oU^ll UL Jjtu gshjt 



@ 5,0 CLEAR 
DO CASE 

* _ _ _ _ case 1 : Search by invoice number. 
CASE Repchoice = 1 
@ 15,5 

INPUT "Look for what invoice?" TO Isearch 
CLEAR 

LOCATE FOR invoice__no = Isearch 
* - - - If found , print invoice. 
IF FOUND () 

IF YN = "Y" 

SET PRINT ON 
ENDIF 
* '- - Print header from first record 

* - - - with that invoice number. 
? "Invoice number : " , Invoice_no 
?? "Date:" , Date 

? "Clerk:", Clerk, "Customer:", Customer 
f 

« 

? "Part # Part name Qty Price Total " 

* - Print data for all records with 

* - - - that invoice number. 

LIST OFF WHILE Invoice_no - Isearch ; 
Part_no,B — >P_name, Qty , Price , ; 
(Qty * Price) 
IF YN - "Y" 
EJECT 

SET PRINT OFF 
ENDIF 
ENDIF (found) 

*_____ Case 2 : Search by dates 

CASE Repchoice = 2 

STORE SPACE (8) TO Start , End 

§ 15,5 SAY "Enter start date" GET Start ; 

PICT " 99/99/99" 
6 17,5 SAY "Enter end date" ; 

1 ~ J7\ 
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s-Us.ll JL. JjiA, g^ 



GET End PICT "99/99/99ti 
READ 

Start = CTOD( Start) 
End m CTOD(End) 
CLEAR 

* Print the report. 

REPORT FORM Sales FOR Date >= Start .AND.; 
Date <« End & Printer 
^SE 

- - IF not going to printer, Pause the screen 
I # "Y» .AND. Repchoice # 3 



7AIT "Press any key to return to the reports ; 
menu" 

i« 

.le user does not request to exit) 

• - When done return to sales menu 

?ION TO 

'ABASES 



3 t oLoJlXwL; «JUII «-.bj_JI^ <^4^jl? (Salreps.prg) 

l> (Sales. dbf) ^L^JU wjJL. " c 1 La Jl*^ . .siLUI 

Jp jlJU3 _jjJ23 *pL1> t-^JLLif o^ -^J • **■• o"-***" C? 4 

1 d*-j*.j . (Date) ei»WI _>t (Ivoice number) 

U.UII q,* L^lkll ^jjjsi^ L^r» Ci>^ ^i 111 U -^^ 



.JliJl jU-JI* . .=iU*JI wjlJUj <Ja^ (Master. dbf) 

********** SalReps.prg 
ed from sales menu , SMenu.prg 
- Open files and set up relationship. 

— — 
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A L^1I jju jjl&j ^.bj, 



SELECT 1 

USE Sales 

SELECT 2 

USE Master INDEX Master 

SELECT 1 

SET RELATION TO Part no INTO Master 




Repchoice = 

*----- start loop for menu 

00 WHILE Repchoice # 3 

CLEAR 

§ 2,1 SAY "Sales Report Options" 

§ 2,60 SAY DTOC(TJDate) + " " + TIME() 

G 3,0 SAY Uline 

? 
? 

TEXT 

1. By invoice number 

2. By dates 

3. Return to Sales menu 

ENDTEXT 

§ 24,1 SAY "Enter choice (1-3)" ; 

GET Repchoice PICT "9" RANGE 1,3 
READ 

JU»alj (Printer) S^IUI ^juu *LsjI ^j* .sJWI o— -^b 
JUjUJI Jt^-J jl^L* -uUi^" ^ixi\ lJu» ^ (TO PRINT) UJUI 



T»T 
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•sU^il .-iL JgtAj g-b^ 



* IF not exiting , ask about printer. 

@ 5,0 CLEAR 

STORE " " TO YN, Printer 

IF Repchoice # 3 

@ 15,5 SAY "Send to printer " GET YN PICT " 1 " 

READ 

*----- set up printer macro 

IF YN - "Y" 

Printer = "TO PRINT" 

ENDIF 
ENDIF 

j-jjJLdl ^pLJ» ^ (DO CASE) ^Si\ pl.AAX-,1 ~^jj, ^J\ ^y^\j 

j*Jj J* 9 Lj <*UJI ^jii^JI aljl lili . ,jL-*zJn jllxi-i u^o. vjikll 
J>«- J^t iiao US' vjJLUI s^yiUJI *3j Qf JLj g-b^JI li « s-^UJI 

ob-^ o^j^i e^Ij>^" j»>2j J^*-" 'J-* <>tj • ("JjJI li** J* tJL?- 1 ^ 
£_~JI SJUj (JtkJI oli&yi ^J J* ^j^j ^jJI (Heading) ^hjJLJI 
j^J . ^Jl j^jb, (Customer) ^^liJI J-mmJI «t*»jj (Clerk) 

£^ o&L* <pLL J ^^J (WHILE) SjLJj, (LIST) ^Ji\ ..> ^,7.,,,-j 

: <LL*JI 

* Print appropriate report based on request. 

@ 5,0 CLEAR 
DO CASE 

*_____ case 1 : Search by invoice number. 

CASE Repchoice = 1 

@ 15,5 

INPUT "Look for what invoice ? " TO Isearch 

CLEAR 

LOCATE FOR invoice_no = Isearch 

*----- If found , print invoice. 

IF FOUND () 

IF YN = "Y" 

SET PRINT ON 

ENDIF 

*_____ print header from first record 

_ 
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cU^ll UL Jjii* e-bj. 



*__--.- with that invoice number. 

? "Invoice number : " , Invoice_no 

?? "Date: 11 , Date 

? "Clerk:" , Clerk, "Customer:" , Customer 

? "Part # Part name Qty Price Total " 

* Print data for all records with that 

*_---- invoice number. 
LIST OFF WHILE Invoice_no = Isearch , ; 
Part_no f B — >P_name, Qty , Price , ; 
(Qty * Price) 
IF YN = "Y" 
EJECT 

SET PRINT OFF 
ENDIF 
ENDIF( found) 




*J (End) 5-jLsjUI £jj 

.- JJi *ijj . IajLsjI cyr* J& (Sales. frm) ^J&\ s jl ^ ..a**** 

* Case 2 : Search by dates 

CASE Repchoice = 2 

STORE SPACE (8) TO Start , End 

@ 15,5 SAY "Enter start date" GET Start ; 

PICT " 99/99/99" 

@ 17,5 SAY "Enter end date" ; 

GET End PICT "99/99/99" 

READ 

Start = CTOD( Start) 

End = CTOD(End) 

CLEAR 

*----- Print the report. 

REPORT FORM Sales FOR Date >= Start .AND. ; 

Date <= End & Printer 
ENDCASE 
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oL^il wiL Jjlu g.bji 



JJij . Uj~ J-l^l g-bjJI £^£1, ^1 JLAjjbJl S^JI J| .JAi-JI 

. (CTOD) aJIjJI plju^L 

^ (Pause) L>J <^.UUI jug d>U ^ ^ ^aLJ! o^ 

* - - - - -IF not going to printer, Pause the screen 
IF YN # "Y" .AND. Repchoice # 3 
7 

? 

WAIT "Press any key to return to the reports ; 
menu" 
END IF 

^jsii\ caUUI o^b ItJJsti S2JUJI »l^l ^JbU. ^ ft tf ui ,>>JI, 
^ .tUi I^ljj . (SMenu.prg) .Uxu,^ jOLaJI g-bjjl Jl sI^JI *J 

: JtJlsJI jj^k-JI J>L 

ENDDO (while user does not reguest to exit) 
*----- When done return to sales menu 
SET RELATION TO 
CLOSE DATABASES 
RETURN 



T»T 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 






J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



OL^II UtL Js«AJ E-bjj 



•abU J**«-i» o-^Sj (Inventory) ^Uai ^li^ a* *>- >* e-W l:u " 
.JUL ^i JL-fll *a* oLiU ^^j ^ . o^l Jl Iaj^j ^Lj ^zJI uili^l 
Ljo* «*bjJI iJub J**.J.J jxzjj . 03UL3I J-— ^111 (Newstock.dbf) UUdl 

JO. ll Jul'. ^Uif^objJ V^ 1 ^^ Q* < 3 > f^ -J 1 *^ 1 f^^.^ 1 j^ 

. ( \ - n ) 




1. Manage master inventory 

2. Record sales 

3. Record new stock 

4. Exit 



Enter choice 



( \ - n ) JSL& 




1. Record new items 
2_ Print new stock data 
3. Edit new stock data 
4_ Return to main menu 

Enter choice ( 1 - 4 j 

< r - u ) Jla. 



r«\ 
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HUM wiL J-«JJ g-bjj 



. ( T - n ) JliJI jJisl . aL-i^g a-^UJI JUliJI Jt Ivt *JL*JI 6JiA jjj 
<pLU jl < (Transaction) SjuJl*. aSj*. Ulk>\ ^.jl^l^JLI £*X3 sUsliJl ajla, 

g-.bn >* J/fl j^^j-JI • J tL 8 JLu g-Lrt **t,1 &* 2CiU» , sll g-b* cd^ 
J* p Ujj . ^^^rttMAJ! g-I^JI J*aA3 ^ j^pjJL| pS,* ^jdl (NMenu.prg) 
" g»«j ^jJI (NewStock.prg) £*b>JI Jl £>«xll jxSj «jax«1I jLzi-l 
p.prg) g-ob>_JI Jl ^isJI «l^j Jf . sjuJl>JI oLl-»^|| ^bL^ 3iLfeL, 
^Ul (NewEdit.prg) ^.b^JI ^1 ^Jdl »ij'_,l . ^ISsJI »rL ^jJI 

. 4iL»l *£>*. ^T oGLj Jjjus^ 

. gobjJU ^^1 ^_jsi\ g^j JbJI JiaJI, 



(NewRep 





( T - n ) J£s> 



n 
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OLilll oUU J;JL&3 g-brt 



(NMenu.prg) 4aL^»^H Co^lS gjatl^jk Y - M 



************** NMenu.prg 

* Menuf or managing New Stock portion of Inventory 

* system . Called from Inventory System main menu. 
*------ Set up loop form presenting menu. 

Nchoice = 

DO WHILE NChoice # 4 
CLEAR 

@ 2,1 SAY "New Stock System menu" 
@ 2,60 SAY DTOC(TJDate) + " » + TIME() 
§ 3,0 SAY Uline 

? 

TEXT 

1. Record new items 

2. Print new stock reports 

3 . Edit new stock data 

4. Return to main menu 
ENDTEXT 

@ 24,1 SAY "Enter choice (1-4)" 

GET Nchoice PICT "9" RANGE 1,4 
READ 

*_____ Branch to appropriate program. 
DO CASE 

CASE Nchoice = 1 

DO NewStock 
CASE Nchoice = 2 

DO NewReps 
CASE Nchoice = 3 
DO NewEdit 
ENDCASE 
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ENDDO (while Nchoice # 4) 
*_____ Return to main menu 
RETURN 



(Newstock.prg) , — oLL^=»Vl «z*L*Lu JLa-^l gj^Li^* V - \"\ 

?_.jLlJI g-aLi^j Li SiLi^l U5U £_« (1) ji^J^JI ».a*.? w .U ^Lxiwj L>julp 
SJUJI ftlfl. ^j . olftiJ (Newstock.prg) £*li>JI Jl JSiu (NMenu.prg) 

: »jl*^*JJ aJLxJI SJLujJI ^ghTj JLS.LJI ^-» ^ 



Enter data for goods received 
Part number :- 



^o . *>>JI lJ*-a i>->-j >Jlp aJ ■gbyi 2UL.J j^laj j»i (Beep) SjlJLsu *jl»ol«JI 

Enter data for goods received 

Part number : - : No such part ! I ! 



>..» * <n i 



. (Master. dbf) ^^-^Jl « oJLLI J-;*-£J £*^ ^ *jLioj*uJI(Addnumbs.prg) 

.-JLLj jkj 2U.UJI yv^j. (Vendor) «jUI ^1 J-jJuJ -J «*Sj L£ . (Vendor) 
: ^i\^ Aiij . ?\siJ\ _j*~>j k_ii*JI Iju» ^ Sojj^l! *L*53l Sjlif »ju5^«il q* 



Enter data for goods received 

Part number A-122 Shirt 

Quantity : - Price: 

Date 02/20/90 Vendor : Hasan 



m 
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»U>Tll UL. J^gAT g.hjj 



»ju>j «J U .jSj < oLl^MI JU-al ^o ,143*1 jl^j . -oSUal ij^ikll JUI u-LLwJI 

. JujLJ 5^. SiU>*l <*3l3 Jl i^Ji JU*3*I c tUU J* U^Jl 

(PSEUDOCODE) <Jjy\ CjI^AJ! <Lll£ 1 - >"\ 

: JMZ g.li^JJ iJ^I ol^LiJI 2ul3T ^ 

. (NewStock.dbf) $sU>*l ^JL, ( Master. dbf) ^^J\ Udi\ £& *Zj - \ 

. sjljJl>JI oLl»o*I oliL^ J*»«*jd SjjI^ 5iL»- j^^ 3 /^ ~ T 

t5 **-a > ll .-alii ^ ,>>JI Ixa ^ »±**«JIj «->LsJjl *yu ,_>»JI |k3j JUol JUL* - T 

. (Master. dbf) 

5ijl^JI 4**£JI q* ^JiiiZwUI Jjy**>j ^l^L^ o**-^ f^ O-?*" f^b (J* ^>^«-ll ***-* " o 

. ttLAl *JG Jl s^JI psj - V 

: ^fiUS g.bjJI (jut. h\£ ^t 

******************* NewStock . prg 

* Data entry program for goods received 

* Called from New Stock, NMenu.prg 
SELECT A 

USE Master INDEX Master 
SELECT B 

USE NewStock INDEX NewStock 
SELECT A 

*----- Set up loop for recording goods received. 
Partnumb = "x" 
DO WHILE Partnumb # « » 
§ 5,0 CLEAR 

fir 
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Partnumb = SPACE (5) 
@ 10,2 SAY "Enter data for goods received" 
@ 12,4 SAY "Partnumber" GET Partnumb 
READ 

* - If a part number was entered , find it in 

* - Master file 
IF Partnumb # " " 

SEEK Partnumb 
DO CASE 

* - - - If part not found, warn user and 
*----- try again 
CASE .NOT. FOUND () 

@ 12,23 SAY "No such part M!" 

? CHR(7) 

* - If found Append a new record to 

* - NewStock .dbf, and get 

* - rest of data. 
CASE FOUND () 

@ 12,25 SAY P_name 

SELECT B 

APPEND BLANK 

REPLACE Part_no WITH Partnumb 

REPLACE Date WITH T_Date 

REPLACE Vendor WITH A -> Vendor 

@ 14,2 SAY "Quantity" GET Qty 

@ 14,22 SAY "Price" GET COST PICT ; 

"99999.99" 
@ 16,2 SAY "Date" GET Date PICT ; 

"99/99/99" 
@ 16,22 SAY "Vendor" GET Vendor 
READ 
SELECT A 
ENDCASE 
ENDIF(Partnumb# " ") 
ENDDO (While user does not want to quit) 



ru 
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aLiHl ukL. j±l&j g-b^ 



*___.._ close files and return to New Stock 
*----- menu. 
CLOSE DATABASES 
RETURN 

jLim (Master. dbf) {S ~£ J i\ UlUI ^Ju *& g-b^JI ^ J^l ^j^ 
(NewStock. dbf) SiL^I uUL ^ ^ US' . JU^I »jl. ^Ul ^>kj| ^ 

SELECT A 

USE Master INDEX Master 

SELECT B 

USE NewStock INDEX NewStock 

SELECT A 



Partnumb = "x" 

DO WHILE Partnumb # " " 

@ 5,0 CLEAR 

Partnumb = SPACE (5) 

@ 10,2 SAY "Enter data for goods received" 

@ 12,4 SAY "Part number" GET Partnumb 

READ 

: iJfcdl jjLJI J>U* 

IF Partnumb # " " 
SEEK Partnumb 

•J-S-* O"?" f^J J^ 1 ^^- ^ (»A^J1«JI >JJUX3 -LOU- ^ »JLj ^jj^JI *>>JI!j 



ru 
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DO CASE 

CASE .NOT. FOUND () 

§ 12,23 SAY "No such part !!!" 
? CHR(7) 

Jli. J»w. ULfel psj L£ . Ajzy f2j ^jLia-JI Jli-al JUL. ^» .sUij .'s^lsJI 
. -us SjoJujJI obLJI Jliilj^ ^(NewStock.dbf) ULfctfl ^_iL SjUp ^ 
wSJI ^ f»ju>0Lwil Jl>—ji UT ^Ul ^{^ £jjbJ[> <-fc-*JI jxSj obLu P J* *£j US' 

j^^jij . J_jAa- tjtJL^ JU-i^ J^4*^JI pX) pJ . ftj~Jtf *JL- ^i £jUI >~>\j ^.,. M J\j 

CASE FOUND () 

8 12,25 SAY P_name 

SELECT B 

APPEND BLANK 

REPLACE Part_no WITH Partnumb 

REPLACE Date WITH T_Date 

REPLACE Vendor WITH A -> Vendor 

@ 14,2 SAY "Quantity" GET Qty 

@ 14,22 SAY "Price" GET COST PICT "99999.99" 

@ 16,2 SAY "Date" GET Date PICT "99/99/99" 

@ 16,22 SAY "Vendor" GET Vendor 

READ 

SELECT A 

: iJW\ jjL^Jl J5U- ^ JJij . ULdl *jt3 Jl 

ENDCASE 
ENDIF(Partnumb# " " 
ENDDO (While user does not ask to quit) 
CLOSE DATABASES 
RETURN 



m 
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(NewReps.prg) <uLe»^l ^jUl* g^aLl^ "\ - ^*\ 

ftjui Jl*j3j . SdJL»vo **i*3 sptf J5U- jl (Part number) 9 y>J\ *3j J* *>l4 
•jb^ljuil jjjJ» q» (Vendors) ^**3UI £* LiLa jj oliXi- ^1 J». ^ .^jjteJI 

. U,U-«lj sJL^I ^ £L3jJI oliLJlv 

. JUU^I SJlS ^ (2) »3^JI -,\vr...ll jUio Ujllp ^bjJl II* J..«.*.j *sj, 

. ( 1 - n") J&JI^I 



New Stock System Menu Q2/2Q/9Q P2;20;4S 



1. Record new items 

2. Print new stock data 

3. Edit new stock data 

4. Return to main 

Enter choice ( 1 - 4 ) [0 



( i - n ) JSLa 



l&laJI Jp SJUI ;U3U1I ^k» sJLJI fiiub ^ 



1. By part number 

2. By dates 

3. Return to New stock menu 



TIV 
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: Jfttf J^l«dl j^pj sjlaJI ^b ^ Jl>u, 



Enter start date : II 
Enter end date : / / 



ULidl <S^». obLj JS" ^a SJUJI 6Jl* ^j. cjjJLUI SjU£j »a>0LwJI j»_>£J 



( n - n ) J&JI , ( o - n ) J£aJI ^1 



.,,.,„— ^nr— in 

IlliWl Inventi 


ary Items Received jW«11b 


Part 
Name 


Part 


Qty 


Purchase 
Price 


Date 


Vendor 

Name 


A-122 
A-122 


Shirt 
Shirt 


20 
35 


500 
750 


02/20/90 
02/01/90 


Hasan 
Salem 



( a - n )J5^JI 



m 
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IKS^ffcTTI J Q2/20gQ 1 


BW^SSyltosCd ' RlH 


Part 


Part 
Name 


Qty 


Purchase 
Price 


Date 


Vendor 

Name 


A- 12 2 
A- 12 2 

A- 121 


Shirt 
Shirt 
Shoes 


30 
20 
20 


750 
500 
500 


02/01/90 
02/20/90 
02/25/90 


Hasan 
Salem 
Hytham 



( n - n ) J&s. 

^1 j (CREATE) jM\ JaIs-L jLI3 ^ . SaJu** ^JU-j S^I-J J_-p *Lj 
*JL^I «_«JLo ^ obL o-^xSj 1 v-fM .^LH^ 1 o' ■ *** * J • (MODIFY) 
, (Master. dbf) ^.^'Jjl .JiLlI j-. obL< -iDJ^, « (NewStock.dbf ) 

: JUW ^L^ 1 J*^ V ^ {**» 

CLEAR ALL 

SELECT 1 

USE NewStock 

SELECT 2 

USE Master INDEX Master 

SELECT 1 

SET RELATION TO Part_no INTO Master 

MODIFY REPORT NewStock 

oIj^ JJ (Dot Prompt) JLL&dl 5j-JU ^ k^j ^x\Ji\ aJJb Ji *JasOL* »* 



n\ 
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: JUdl JSLiJI ^ ^Isu L£ (Columns) 






IS 



1 

2 

3 

4 

5 
6 



mi-|-HMM-J!!!!!i 



IS 



Part_jio 
B->P_name 

Oty 
Cost 

Date 
Vendor 









Part 

Part 
Name 

Oty 

Purchase 
price 

Date 

Vendor 



l-kUlmF-i-.W'"! 



6 
15 

4 
12 

8 
25 



j -i-;-K4-;-HJ+i-i-n-HW 

|:i33;i:i:n:j:-:j:i:i:i¥d¥::!.: 



SlMIaEE! 



m 



1 



2 
2 



■i-:-!4-s4-i-;;-iN-| 



mutism 



N 
N 



< V - n ) J£& 



,-*«-JjJI vJiUI a- O^l H (> J*—* ( B ->P_name) fcb£ La A*^ 

1 . (Master. dbf) 



nuaUjJI 



4^t^ v - n 



Lla ^ uJ^-J « (Sales. dbf) cXJjl uiL> (Master. dbf) LS --JjJI 
g-ibjJI, ". l^^A S*jU, SbLJI ^UxJI g.£, Jl ^.Jl q^lj J=Jis g-b^JI *jIx£j 

: 2LJUJI j^ln.nll qa Q>**J 



************** *NewReps.prg 

* Print reports from the NewStock file 

* Called from NewStock menu, NMenu.prg . 

*----- Open NewStock and Master databases. 
SELECT 1 
USE NewStock 



rr« 
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SELECT 2 

USE Master INDEX Master 

*----- Set up relationship. 

SELECT 1 

SET RELATION TO Part_no INTO Master 

*----- Start loop for menu 

Repchoice = 

DO WHILE Repchoice # 3 

CLEAR 

@ 2,1 SAY "New Stock Report options" 

@ 2,60 SAY DTOC(T_Date) + " » + TIMEQ 

@ 3,0 SAY Uline 

« 

? 
TEXT 

1. By part number 

2. By dates 

3 . Return to New Stock menu 
ENDTXT 

@ 24,1 SAY "Enter choice ( 1-3 ) •• ; 

GET Repchoice PICT "9" 
READ 

*----- If not exiting , ask about printer. 

@ 3,0 CLEAR 

STORE " " TO YN, Printer 

IF Repchoice # 3 

@ 15,5 SAY "Send to printer?" GET YN PICT "!" 

READ 

*----- Set up printer macro. 

IF YN = "Y" 

Printer = "TO PRINT" 

ENDIF 
ENDIF 



rn 
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ULitfl «_»U J^JL&jr g-ljjj 



*-...___ if no t going to pritner, pause the 
* - - - - - screen. 

IF YN # "Y" .AND. Repchoice # 3 

*? 

•> 

WAIT "Press any key to return to the Repchoice; 
menu" 
ENDIF 
ENDDO (while user does not request to exit) 
*----- when done , return to New Stock menu 
SET RELATION TO 
CLOSE DATABASES 
RETURN 



W 
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obUJI &*±*j ^>bn 



. ULVSlI eJJLoj (Sales. dbf f oLuljl UlLj (Master. dbf) l5 -J > JI 
Js*j ^JJI »LkdJ jlsJLI g-bjJI ,LsjI jxSj ._jUI 1^* tf*j ( News tock. dbf) 
,^-uwJjJI ^-flill obLJ (Updating) ^uAjhTo .jl. g«bjJI Ijjkj . «uS p -^a- j»j»I 
(Sales. dbf) obwll ._iL> ^ Saj^jJI ouUJI J* p Uj (Master. dbf) 
g-brt pLlil j»xj Liul v-jLJI Ha ^j . (News tock. dbf) UUdl UlLj 

. ttLfetfl wJL JjJuj g-olijjj oLl**1I »_iJLo J-j-AjuJ 

(Master. dbf) ^.n/i^ll « aIII ,;3j,t- t .~ ^alj^ > - W 



o-* ° 



<iU,U ^<jl. US' . aju A-Jl'fKj cJLl^ J£) ^ojJI JdjtT.J 5a**»ll oL 






aJu» 1 ^a.-jj- « ts'-sl^l '-^1 ^ (On_order) v lkll jc»j Ji». ^ Sa^j-jil 

oLl^^II 6^ 9 ljjJI ^*«, JjJl*xj ^Sj US' . J-iib Ljs_9U»l • a .JblsMl 

_>*-JI 11a jl v**^ « *iU»}!l cJL ^ *>*>-ll Jl-JU (Purchase Price) 
^oA^»a >J ^b JjJu^ g-b^JI fjJL 1^1, . ^Ll^JU ^*^ ^jl».1 j ...,?.o 

. »jk»wLuiJI <iS^»JI i_oJLo _i i^»._jil tgjjLJIj obLJU 

q-o (4)»J > JI »A»^yJI jb»o UjlJLp gab^JI IJlA J-LiJ pij^ 

) jiajf >j| . (Master. dbf) ^-J^l .-Wl J-ajj ^.b^J 



< \ - \v 



triage Master Inventory 02/20/90 



12:40:50 



1 . Add new part numbers 

2. Print reports 

3. Make changes 

4 . Update frcm sales and Newstock 

5 . Return to main menu 



Enter choice (1-5) 



( \ - tv ) js^s, 



rro 
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»»ULJI .'.j.tfcT pjiifj 



. (PSEUDOCODE) <Jji\ ol^l *,[£ %] ^ ^b^JI |j* l i \^] J 
(PSEUDOCODE) SJ-jVl .-.I jU^H £*tl£ > _ \ _ \y 



A^mLamJI vcwmO aXj " \ 






- Y 



• OULkAll L_flJL ( ^0 



' ^ U^^l 0"-**^ OU-J.1 t_ftJLo £^3 *XJ - T 

. (Temporary file) cJy .JL Jl ( I43BL0 jJ»->» 

. oajil i_olil T^i f^-i -a 

ui^juI i 51 tin 



<j ,j«UJI ^-^ill 



rt. 



oUS" f^cio ^Uij ,-J^JLI v_ilil ^ l --*wu > JI ^_nJLtl 6j 

. v*o^»j >.T ^Jb Ja» Jjj^j <*UI ^Il^sII 

. c^UUI £*»*- •^Xi.l »£j - \ 

. (Sales. dbf) oU-JI .JaJL ^3 *zj -\. 

(Posted) J^l Jju ^ j;;^^ ^1 (.T.) ":LaJI JUol ^sJ -»» 

. (Posted) LfrJL»._j3 *j 
. oliUI «jm^» ^Ul ^ -\r 

. (NewStock.dbf) SsL^I vliJU 

^ f. ) L$£j.X^ ^ jl Jill UL^\ UlL o>L»w £^* £^3 LJ -lo 
. (Temporary file) cJ> ^JL Jl ( "l^L* J— J3 

. ojjil .-ftUI £Za *^j - n 

. c*3}il t_aill ^ o>U«u i^j ^ jkiEdl *Sj -w 

tS-*** 3 ^-" '-^1 c*s j»^J « cuj>II tjlll ^ cj>Uwu. oj^j-j <JU ^ -\A 

^U^ <iLi,L JJij cu3>ll ^iill ^ ,^-^JI u-aJLLI ^_.ju>j ^ -\\ 
^Jj^j J ciuA^ jJ-T pubj ^AjuJI ^^ JjA*^ SiLUJ' JLuL^f 

Ja* ^i s^vjii K^siT^ 0> >ii jp ^uai ujll«ji s^s" ^jj, 

. (On_order) ^JJLJI a»j 



TT"\ 
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ClbLJI AjAfcT gabjj 



. (NewStock.dbf ) Ssl^jT «_iL «zs ^ -n 
(Posted) J-^xJI JJU ^ p*^. tf l (.T.) ^JUI JUol fsJ -TV 



. olilil ^*» jkpl »ij -rr 
. (MMenu.prg) 



xi 



jjJsuJI c ^> Q>_iLij (Updater.prg) 47,,,„i ^zj g-ob^JI' 11a 

**************** Updater.prg 

* Update the Master File from Sales and NewStock. 

* Called from Master menu , MMenu.prg. 

*__-__ As k US er if sure abour updating. 

YesNo = "Y" 

@ 5,0 CLEAR 

@ 15,4 SAY "Update Master file from Sales and" + ; 

"NewStock? (Y/N) " GET YesNo PICT " ! " 
READ 
IF YesNo = "N" 

RETURN 
ENDIF 

*----- Display a message that Master is being 

*_____ updated from Sales file. 

@ 5,0 CLEAR 

@ 15,5 SAY "Updating from the Sales file ..." 

USE Sales INDEX Sales 

*_____ copy all unupdated records to Temp file. 

COPY STRUCTURE TO Temp 

COPY TO Temp FOR .NOT. Posted 



TTV 
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obLjJI .'.jAiht wbjj 



* - _ _ _ Make sure there are records in Temp 
SELECT 2 

USE Temp 

IF RECCOUNT()>0 

* Use Master file and index for updating 
SELECT 1 

USE Master INDEX Master 

*----- Update from the temporary sales file. 
UPDATE ON Part_no FROM Temp REPLACE Qty WITH ; 
Qty - Temp -> Qty , Date WITH Temp -> Date 

* USE original Sales file , make all 

*----- posted fields "True". 

CLOSE DATABASES 

USE Sales 

REPLACE ALL Posted WITH .T. 
ENDIF (record count >0) 
CLOSE DATABASES 

*----- Display a message that Master is bieng 
*_____ updated from the NewStock file. 
@ 15,5 SAY "Updating from the NewStock file" 
USE NewStock INDEX NewStock 

* _ _ _ _ copy all unupdated records to Temp file. 
COPY STRUCTURE TO Temp 

COPY TO Temp FOR .NOT. Posted 

*----- Make sure there are records in temp. 

SELECT 2 

USE Temp 

IF RECCOUNT() > 

* - - - USE Master file and index for updating 
SELECT 1 

USE Master INDEX Master 

* - - - Update from the temporary NewStock file. 
UPDATE ON Part_no FROM Temp ; 

REPLACE Qty WITH Qty + Temp -> Qty , Date WITH ; 

TYA 
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Temp -> Date, Cost WITH Temp -> Cost, ; 
On_order WITH On_order - Temp -> Qty 

* - - USE original NewStock file, make all posted 

* fields "True" 

CLOSE DATABASES 

USE NewStock 

REPLACE ALL Posted WITH .T. 
ENDIF( record count > 0) 

* - - - free up all work areas , and return to Master 

* - - - menu. 
CLOSE DATABASES 
RETURN 



4 jLpjcluiL »U ^JJI ~>Lij_JI *_*J *3 oi-Jajj (Updater.prg) 

jShli »ju>oiu,.j[j ^JLuj^ (j>_j*j <£l£JI tumj »j*j j>J . (MMenu.prg) 
£*>ys 4-ILuj ijo^s- j^xj p3 • (Updating) i£*jJu>odl ^ ijupj &-o 

Ud* ^ OjJu»»3 i^U- (Master. dbf) ^ -J^JI » nJLXI 1 >jl.-*jl»mJJ 

i_iloj (Sales. dbf) oLn^l iJUL p^xju ^ob^JI pj-3-j **j . cjU,.UI 

j_jJa*JI J>U- j^-o ol^JaiJI 6Ju» l*ii3 j^Ljj . (Temp. dbf) vaJ-)_« 

: 5JUI 

YesNo = "Y" 

@ 5,0 CLEAR 

@ 15,4 SAY "Update. Master file from Sales and " + ; 

"NewStock? (Y/N)" GET YesNo PICT "!" 

READ 

IF YesNo = "N" 

RETURN 
ENDIF 

*----- Display a message that Master is being 
*----- updated from Sales file. 
@ 5,0 CLEAR 

@ 15,5 SAY "Updating from the Sales file ..." 
USE Sales INDEX Sales 

m 
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*----- Copy all unupdated records to Temp file, 

COPY STRUCTURE TO Temp 

COPY TO Temp FOR .NOT. Posted 

oLuj-JJ cjyi ^JJLII ~zh pJb g-bj-JI ^ ^iUil o ,JI, 

^Jl UabLu J^ ^^UJI c^U-JI JS" Jp ^j^s^ ^JJI (Temp.dbf ) 

o"^Lj (Master. dbf) ^-yJ^JI iJUIl gii *sj -J . *j^u ^'gi'tsi 
: 2UW ^A-JI J*± o* Alt ^ . ^1 jLp «Lu ^ J ,^1 

* Make sure there are records in Temp file. 

SELECT 2 

USE Temp 

IF RECCOUNT()>0 

* Use Master file and index for updating 

SELECT 1 

USE Master INDEX Master 

Sa^l oL^JI ^ (Temp -> Qty) cjjll Jllll ^ 5^*^11 oL^5Jl 
i5 «*3jJI ^iUJ ^j^>J _>T ^b JjJuJ ^Xj «d (Qty) ^--SjJI UkUl ^ 
j^k-JI J5U. ^ .sUi ^ . oUjJI JL ^ a^^il ^jjlilL (Date) 

* Update from the -temporary sales file. 

UPDATE ON Part_no FROM Temp REPLACE Qty WITH ; 
Qty - Temp -> Qty , Date WITH Temp -> Date 

alA ^i (Posted) J-^dl J-JU j*JL^Z«oj . 2Lit» 8>- LfrL-w^J 
l:Ub C5 1 C**" 3 ( True ) i5' (« T : U*SJI Jli-al jjj c*~» . 4 J,...)! 

. aJUJI 6Ju» ^jj SJUI j^kuJI^ . ^^Jl'cJJLlT^Jl' I & I ■ -v.^3 

Close DATABASES 
USE Sales 



rr< 
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REPLACE ALL Posted WITH .T. 



ENDIF (record count > 0) 
CLOSE DATABASES 

i oJLo J^U- ^» ^oJLshXJI <JLp J^J-J ^Li- ^ aJL) ,jm-oL>JI ?_>?JL» 

^i^p "iljl ^ ,**** « SkLJI SJL-JJI (j-jij (NewStock. dbf) ULAl 

•of »i**»j • (Temp) ciJ> u-iJ « ,^11 ( a-JL^I uiL ^ UL*-^J ) 

iS ^>J\ E — *bj_JI l5 _J (SET SAFETY OFF) j-Ji\ t>\sZ jL- jj 
qjs »J3 o>U«JI ^*uJ JUL* £,U < (IMenu.prg) ^UJI « ol_ij_J 

@ 15,5 SAY "Updating from the NewStock file" 

USE NewStock INDEX NewStock 

*----- Copy unupdated records to Temp file. 

COPY STRUCTURE TO Temp 

COPY TO Temp FOR .NOT. Posted 

q-» Aihj . (Temp) ^3311 «_ftJW ^ o>L*v« i^j ^ j^TiJI »^j *3 

: SJbdl jjjUl J>L. 

SELECT 2 
USE Temp 
IF RECCOUNT() > 

<j ^UJI ^-^Ail «-«ioj (Master. dbf) ,^-^JI v-illl qXs **2j ,J 

: SJUJI jJL-JI J>U- ^ 

SELECT 1 

USE Master INDEX Master 



TT\ 
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2L~XII fcLib JJij . (Master) iS ^J\ uLUI Jl (Temp) 'cJyll 
*_iUI ^ Sa^l V^" J* (Temp -> Qty) U^JI Jju ^ Sa^l 
^ LLJI ^ ^J-W^ 1 J*"^ ->*— " JJU£-,I & L£ . (Qty) l5 -J > ll 
V^ 1 £> r=J ^ ' ^* Xa ° >-T c^» b ^^j(Temp->cost) c3>il 
<-*_LkJI oxjo J_a* ^ Sj^-a-^il 3_m£II j^-o (Temp->Qty) 
. ojJL^JI 6.Xa ^*i3 gAjj JlJUI ^L^JIj . (On_order) 

* Update from the temporary NewStock file, 

UPDATE ON Partjno FROM Temp ; 

REPLACE Qty WITH Qty + Temp -> Qty , Date WITH ; 
Temp -> Date, Cost WITH Temp -> Cost, ; 
On_order WITH On_order - Temp -> Qty 

J*** J* «»< -T. ) M' J^l (^ ^b^JI ^ ^| P>? J| ^ 
£*— ? ^1 (S r 5 " V 1 * *L>- U*^ {*ji ^ (Posted) J-l^JI 
. (MMenu.prg) ^-^JjJI cJJUl J~Lij U3l3 Jl j a> JI, oliUI 



* - - - USE original NewStock file, make all 

* - - - posted fields "True" 
CLOSE DATABASES 

USE NewStock 

REPLACE ALL Posted WITH .T. 
ENDIF (record count > o) 

* ~ ~ - free up all work areas , and return to 

*----- Master menu. 

CLOSE DATABASES 

RETURN 



(SalEdit.prg) oUll l il ft ~ -.^ . ^" ^Lk^ Y - W 

jo ojii < ^uji ^.b^j <i_>sm ukiji v^ 1 e-M uh>* a- J**^ l£ 

1^-* ^1 (SalEdit.prg) oL^JI uLL j^o^j '^Lkll g-ls^JI C J^ J^b 

m 
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^Lj »ji_iou«il I U-iji jJ >Lui . ^Sl^JLI (Master. dbf) (^-^sjjl »-AHI obtj 
j^-o tIj^ qj^Lp c-Aj^mJI iJL^j ,j«UJI 4-M>£il JJL»- ^ ■_*££ <u£Tj 0L4LL Sj-i* 
>*JLlil Jl aJL»._jJ juu ol*-^ll ijULo ^3 i_oJwJI lJub J-jJluXj »l3 liU . Sj-£,» 
JUL, . ^JjJI oULJI "^J j-frkjV JjJu^JI Iju> lf (Master) tf ,J>JI 

gueb^J j^U jLlJJj . Q>>JI ^ *»«J>wJI *-m>£JI j>* Lk*- ,^-JjJI t_flJLoJI ?«^-«aj'i! 

oI^LpJIj . ,^-JjJI « nJLtl Jp oOiLjJLuill aJJ» Jl»oL L/T >yu cxJjJI ^^Lii ^j 



• Oti** J J ?***' °^Lu ^1 Jj^*Sj ^.va.7„„.,JLI j-LmJI - \ 
tilo ^ (Part number) *>>. «Jj ^Lu J-»jl*2j »j» — »u«JI »l3 lil -r 
p>>JI >$j J* .-aJL.^11 Ijjb q* **Lil -u»iJ| <iLi»Lj goibjJI »^5j . i^jLuaII 

^ 4JLjJl*Sj »aiHi«JI .13 lil ii*jJt»j ^jj ^b J-jJucJ 5*1*. JL* c*~*Jj 
**-*Jj (Updating) i£*_>Jl_»uJI £jjb Jju* Jl>*yi ^*»- ,y 0*1! ^L«*JI i_ii« 

".' ( Editing)"' Jjjl*JI 

. ££l£_ll Jp aJIxJI <JLuijJI ,j>js. Jl ^5^>j iIjuAj jo* £*b>JI IJuhj 

Enter Invoice number to edit (0 if none) : 

£_oLjj_JI q(J i U^J J-jJuuJI k j ) !kU SjjjLill jOj >..>-->^M,il y^x5o Ljllpj 

6JUD ^j . JLilliil oLl-o^I obLo 5L*Jai« S^tUil aJi^j JLoLiJI ^sJI JS" ^^S! 



L-aU- 2LiiLs. ^J^ . -obLu JjA*xI JLs^I aJj» Jl»-1 jLii-b »jc^.^-1I -j5j <JUJI 

. ( T - W )JXiJI ^Jail . l$J>w*^ jl I^LjUud «_LLyJI lJUb oliL 41+JsJj, JjJU^JL 
. 4JL-JJLJ1X5 i—i-LusJI IJl^j ( r°L»- ^bj ^1 Jl j-iijil jijjj*^ j.JaaLmJ.1 - ■ U?...^ 

: ^ir' Jl&laJI Jill ^k. ^JJI JlyJI pill (Y) ^ -uX.j UT 
Delete this record ? (Y/N) 

. c_ii*sJI IJl«» pUJI Jl^j IoJUp ^Uij 

m 
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obLJI AjAj j g.b_H 



• tf--^l «-»UI i> V 1 ^ 1 o^Ljjudl P I^L ^Ji jl^ g.bjJI ^ 




Invoice Number 
Part Number 
Clerk : 
Quantity : 




Customer 
Selling Price 




Delete this record (Y/N) 



( T - tv ) J£a 



(PSEUDOCODE) iJjVl oljU^ll V - Y - >V 

. syS'lJJI irjfj**^ pULil *zj - \ 

. S^pUJI jxSj Jli.a'Jl.^l^j S2U ^jjSj *iI -r 

<t u- 1 ^ 1 a"-^ 1 ^Lj (Sales. dbf) oL~ll uUL. gii ^ -T 

. ( Sales. ndx) 



k Jl»u 



• > JL>JLu*-tl 



• ^L* Jd^ v^i Je-JI (J, o* ^!>-J r J^2— JU l^lbLu 

. <JI ^.IajJI |kXj jl^ J»w JLu» LS" lilj 



m 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 
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Qjy^b ot *^l >-*k> 15 5 ^kLj Jja*3 .-.jLUI Jj>«JI Jl u-jIajJI ^ -v 

4j>w-«j »jLiJL«JI *L3 j»j (Posted) <L*->t jkJ JJ J^-JI ^IS" lil -w 

9>>JI *2j JjJi*Zj >JL>iX*Jll >L3j <1a»-jJ p»3 «x3 J »»uJI q\£ lil -tt 

^JJL.JI ,^J j^jjlaJI 9 >>JI fJj Jl ujUjJI »jlj < (Part number) 
ji^Xj IS . <jLo l^oUil j*— ,^1 2UXJI XsLi*^ (Master) l5 -« i 3jJI 
<u»£JI aJiA ^j L»_j ,^-^JI • oJLLl ^ JuJu>JI *>»JI ifcjj jl ujLajJI 

Jjjt-ij .jLio^uil »Uj (Posted) -d^yi j»J Jt3 Jj>~JI q\£ lil 

. SJuJuyJI ^iCJjj <3jU\ AjwSJI £*j 'j^ill ._»Ll». jxSj <4**£JI 

. (Quantity) S-s^jll 

Tbutll "LJU* * l^jl *2j 7M-JU Iaj^^j i5***» «a3 o)L»md JLa coli lil -\o 

. (PACK) _^!l JjuJ^»L 
. (SMenu.prg) oU^I >_aL J*A-£J g»b>j Jl ^y^J\ *zj -\*\ 



■\r 



^U^JI JLL^ Y - Y - W 

: ^l^ jjoli^JI d=»» h^ f^i 



**************** *salEdit .prg 

* Edit the Sales File and update Master. 

* Called from Sales Menu , SMenu.prg. 

* Set up memory variables. 
No_Dels - 

Search = 1 

*----- Set up loop for invoice numbers 
DO WHILE Search # 

CLEAR 

@ 2,1 SAY "Edit Sales Transactions" 



XXa 
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obU^JI o^smj ~-b 



C" u ->* 



§2,60 SAY DTOC(T_Date) + " " + TIME() 

§ 3,0 SAY Uline 

? 

? 

@ 15,5 SAY "Enter invoice number (0 if none) : " ; 

GET Search PICT "9999" 
READ 

* _ _ _ _ !f user does not request exit, continue 
*_____ w ith edit. 

IF Search > 

USE Sales INDEX Sales 

* - - - Count records with that invoice number. 
COUNT FOR invoice_no = Search TO Howmany 

DO CASE 

* - - - If invoice not found , warn user. 
CASE Howmany = 

@ 24,1 SAY "No such invoice number" 
? CHR(7) 

* - - - - -If invoice number found , proceed. 
CASE Howmany > 

* - - If several records have this invoice 

* - - number , dispaly them and get the 

* - - required record number 
IF Howmany > 1 

@ 5,1 CLEAR 

? "RecNo Part # Qty Price Clerk" 

?? " Customer Date" 

LIST FOR Invoice_no = Search Part_no , ; 

Qty, Price , Clerk, Customer , Date 
? 

INPUT "Edit which record: 11 TO RecNo 
GOTO RecNo 

* - - - Otherwise, just go to the record. 
ELSE 

LOCATE FOR Invoice_no = Search 
ENDIF 
— — 
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* Store original field values to variables. 
01d_Part = Part_no 

Old_Qty - Qty 

* - - Display data on edit screen and allow 

* - - edit. 
@ 5,0 CLEAR 
Deleted = " " 

@ 7,1 SAY "Invoice Number" GET Invoice_no 
@ 7,44 say "Date" get Date pict "gg/gg/gg" 
@ 10,1 SAY "Part Number" GET Partno; 

PICT "!!!!!" 
@ 12,1 SAY "Clerk" GET Clerk 
@ 12,40 SAY "Customer" GET Customer 
@ 15,1 SAY "Qauntity" GET Qty 
@ 15,20 SAY "Selling price" GET Price 
@ 24,1 SAY "Delete this record? (Y/N) " ; 

GET Deleted PICT "I" 
READ 

* - - - After editing , adjust Master file. 
DO CASE 

* - - - If transaction to be deleted , 

* - - - delete it and add its quantity 

* - - - back to the Master file. 
CASE Posted .AND. Deleted = "Y" 

DELETE 

No_Dels - No_Dels + 1 

USE Master INDEX Master 

SEEK 01d_Part 

IF FOUND () 

REPLACE Qty WITH Qty + 01d_Qty 
ENDIF 

* - If Part number changed , add 

* - quantity to old part number, 

* - and subtract it from new part 

* - - - number. 

CASE Posted .AND. Part_no # 01d_Part 
New_Qty = Qty 
New Part = Part no 



TTV 
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USE Master INDEX Master 
SEEK 01d_Part 
IF FOUND () 

REPLACE Qty WITH Qty + Old Qty 
ENDIF 

* - -If quantity changed 

* adjust the Master file quantity 

CASE Posted .AND. Qty # 01d_Qty 

Dif f = Qty - 01d_Qty 
USE Master INDEX Master 
SEEK OldJPart 
IF FOUND () 

REPLACE Qty WITH Qty - Diff 
ENDIF 

SEEK New_Part 
IF FOUND () 

REPLACE Qty WITH Qty - New_Qty 
ENDIF 
ENDCASE( adjustments after editing) 
ENDCASE(Howmany > o) 
ENDIF (Search > 0) 
ENDDO (while still editing) 

* _ If there are records to be deleted , Pack the 

* - - _ -sales database file. 
IF No_Dels > 

§5,0 CLEAR 

? "Deletinq unwanted records from the sales file.." 

USE Sales INDEX Sales 

PACK 
ENDIF 

*----- Return to Sales menu. 

CLOSE DATABASES 

RETURN 



TTA 
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obLJI AjJjJ T ^Jiji 



ajl*> &&*£} (No_Dels) Sj-£lJJI j^Juj) pLijL 1jl*j ^b^JI^ 
(Search) S^IJJI ^+*z* P Lij| jLJJl^ « (4**^ \_ijikTl cn5L>«JI 
J>U- ^ -illi j^jj . QjJmJ .Juxl^il Ju^j ^1 s^UJI 4-Sj c - r! £_->^J 

No_Dels = 
Search = 1 

: OlzJI jjJswJI J5U. ^ ^Uij . 1$Lj^ 

DO WHILE Search # 

CLEAR 

@ 2,1 SAY "Edit Sales Transactions" 

@ 2,60 SAY DTOC(T_Date) + " " + TIME ( ) 

@ 3,0 SAY Uline 
? 

? 

@ 15,5 SAY "Enter invoice number (0 if none) :"; 

GET Search PICT "9999" 

READ 

i**»JLI <> ^UJI ,j^r^\j (Sales. dbf) oLJI uiL ^ii ^ »J 
. ( jOjJI lju» JU.il *JU- ^ ) »jLiJL«J.I -di-al ^Ul SjjjUJI j^i_, ^ 

: <JUI jj^JLuJI JMi. ^ jU5 *2j^ . (Howmany) _j^d\ .3 

IF Search > 

USE Sales INDEX Sales 

*_____ count records with that invoice number. 

COUNT FOR invoice_no = Search TO Howmany 

: UUI j^L-JI JL" ^ JJi, 

DO CASE 

*----- If invoice not found , warn user. 
CASE Howmany = 
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obLfJI &tjmj b^Kh 



1 SAY "No such invoice number" 
(V) 

Jl -yu Sj^tUJI jJ, ou Jd l«J o5U*» SJlp JUa l^ lil 

Ji aJLtj . -UjJulJ Jj>wJI IJl* Jl yUlll «JLl f3 . ^JLlJuJ 

: <Jldl ^^LjI 

ny > 

- If several records have this invoice 

- number , dispaly them and get the 

- required record number 
wmany > 1 

5 , 1 CLEAR 

"RecNo Part # Qty Price Clerk" 
" Customer Date" 



ST FOR Invoice_no « Search Part_no , ; 
y, Price , Cleric, Customer , Date 

PUT "Edit which record: " TO RecNo 
TO RecNo 

j -dliol fJ ^JJI Sj^UJI *Jui A>.\j Jj>wu. JUa \£ IjI 



X Invoice_no ■ Search 

II <^\j j-fli ,>>JI (J, a^ 3 r* JUI ** JI **•> 

Hi. 1 J-3 8^15 oL^JO- ^ OjLzS-l ^ ^Ul J^vJI ^ 
. jIJi juu JjifeJI 6Jla jLxi-l Cr C^ t5 i»- Jliij . I^LjJuSj 

: ?Jtdl j^L-JI J&* 

= Part_no 
= Qty 



Ti« 
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cibLJI o. 



e*k>i 



-_pj &&*<*) (Deleted) 3-^lJJI ^jul. *l£il ^ JUI *>>JI ^j 

@ 5,0 CLEAR 

Deleted = " " 

§7,1 SAY "Invoice Number" GET Invoice_no 

@ 7,44 SAY "Date" GET Date PICT "gg/gg/gg" 

@ 10,1 SAY "Part Number" GET Part_no ; 

PICT " ! ! ! ! i " 
@ 12,1 SAY "Clerk" GET Clerk 
@ 12,40 SAY "Customer" GET Customer 
@ 15,1 SAY "Qauntity" GET Qty 
@ 15,20 SAY "Selling price" GET Price 
@ 24,1 SAY "Delete this record? (Y/N) " GET ; 

Deleted PICT "!" 
READ 

■ _JUoj (Posted) -dL-a-^ji »_j jj J-»»-JI ^LfT lili . >Jt^o- 



^_«^| tk-^lj-j ^^-oJL) a>*^>a j*Ij (Deleted = "Y") 4j>*uuj *&>cuJ. 
(No_Dels) T^^o wjjJLUI o>U~JI oJl* SoLj j^ »J (DELETE) 



I 

JL»kj 



uJJLoj (Master) ^u-^JjJI t-illl p*£b ^Ui jdu ^eb^JI »jli aJi 

■ gjJI <-w»iCJI SsUjI^ 4j>w*-o u_ijUUI J*v«JI IjUb £* (£**«!! 4j jj^UJI (^^ill 

: SJlxJI _jj,k..JI J>Li- ^ aUi jxXjj . 2uil3 S_^» >jl>^«JI LgJjiP 

DO CASE 

*-.._-._ xf transaction to be deleted , 

*----- delete it and add its quantity 

*_-___ back to the Master file. 

CASE Posted .AND. Deleted = "Y" 

DELETE 

No_Dels = No_Dels + 1 

USE Master INDEX Master 



Xl\ 
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SEEK 01d_Part 
IF FOUND () 

REPLACE Qty WITH Qty + 01d__Qty 
ENDIF 

r jh Laip ^j t J^JI J tjib SJU ^1^4.1 fjj JUI *y»J\ ^ 

L^ ^ SJUJI 6Ju> ^ . £*JI s^li ^IsS" A> Iki. ^l>J-VI jl*1 
y^J\ cJUUI ,j cu-Jii jl3 *_>^JI Iji^ JL-UJI (Quantity) ',.i ; ,^JI 
US' «Jj JUof,-^ tf ^111 u-Ll«JI ^ Jka j;^*. ^ (Master) 

ULl-JI ^ ^ l*~*ij (OldJPart) jojjUI „>J| jf ^-jjjl Jill 
: UlsJI j^L-JI J>b- ^ JJ5 jkSj, . JuJujjfp-^jJI ^ 

CASE Posted .AND. Part_no # 01d_Part 
New_Qty = Qty 
New_Part = Part_no 
USE Master INDEX Master 
SEEK 01d_Part 
IF FOUND () 

REPLACE Qty WITH Qty + 01d_Qty 
ENDIF 

pjj <JL>JI 6Ju» ,^3 . *>pJr«Jj J-jJu*3 Q^a .Lis (Quantity) 
jUij < (Master) 15 «~5>JI uA\ ^S »_>*JI Ijia ***£ JjJl-i* g-bj-jJI 

: *JUI -i^-" J^ «>• ■«& fiu Is^J *-*W ^ sl^T^JUJl 

CASE Posted .AND. Qty # 0ld_Qty 

Diff = Qty - 0ld_Qty 

USE Master INDEX Master 

SEEK 01d_Part 

IF FOUND () 

REPLACE Qty WITH Qty - Diff 

ENDIF 
ENDCASE( adjustments after editing) 
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ENDCASE(Howmany > 0) 

ENDIF (Search > 0) 

ENDDO (while still editing) 

L£ li>l L U^jd (No_Dels) ^Aill jLxi.1 ^j JLJI P y>J\ ^ 
■_ ij I t-io <n>L>fcu» JLla ojL^ loLi . ^! »1 Ifl-r- - i_ijJLL« o^L>«u jJLl* 
vi»L*«If t_iL ^ LsL$i l^a^.^ ^ (PACK) jJi\ Jjl>jlJ ^ L^>«-o 
: SJkdl j^LuJI J>U- ^ Jii jCLij, . (Sales. dbf) 
IF NO_Dels > o" 

§ 5 r CLEAR 

? "Deleting unwanted records from the sales file.." 

USE Sales INDEX Sales 

PACK 
ENDIF 

. (SMenu.prg) 



(NewEd.prg) 4iL^>^l > Sl« »jewxi r^ol^-i V - W 



'•'■■■■ "• ' ,J| " 




1. Record new items 

2. Print new stock data 

3. Edit new stock data 

4. Return to main menu 

Enter choice d-4) 



( T - tV ) J&S. 



xix 
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obLJI a^Amj ^tajt 



AJLUal 0>L>u.ui J*_)Jl*Ij »Xo*Z+».JJ n«uJ ^LuJI ^ob^JI f JjJ> ^ob^JI iJLfcj 

^ *Uj (Master) ^j-^JI >-iUI JjJuj ^ s*»*»u < l^JU-al £-_«» ^1 ljLl^I 
uiJL^j'i! jAj . (Posted) L^p J-— jj oM»«JI taoLS" lil o>Lji*xJ! 6Jl*> 

1 US' . (Qty) 2U£JI Jl» Jl fcL^L (On_Order) Jk-jfCostf ^JjuJI 

^ ^obj-JI q>&j$ . ol*«il ulL Ji« s^lilf *i, J«Jj (NewStock. dbf ) 

: SJliJI j>-JI 

**************** *NewEdit.prg 

* Edit the NewStock File and update Master. 

* Called from NMenu.prg. 

* Set up memory variables. 
No_Dels = 

Search = "1" 

*----- Get part number for data to edit. 
DO WHILE Search # "0" 

Use NewStock INDEX NewStock 

CLEAR 

@ 2,1 SAY "Edit NewStock Transactions" 

@ 2,60 SAY DTOC(T_Date) + " » + TIME() 

@ 3,0 SAY Uline 

? 

ACCEPT "Enter part number to edit (0 if none)" ; 

TO Search 
Search = UPPER (Search) 

* - - - If user did not request exit, continue. 
IF Search # "0" 

* - - Count the records with that part number 

SEEK Search 

COUNT WHILE Part_no = Search TO Howmany 

DO CASE 

* - - - If part not found , warn user. 

CASE Howmany = 

? " No such part number" 

? CHR(7) 
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* - - - If part number found , proceed. 
CASE Howmany > 

* - - If several records have that part 

* - - number , dispaly them and get the 

* - - required record 
IF Howmany > 1 

CLEAR 

SEEK Search 

LIST WHILE Part_no - Search Partjno , ; 

Qty, Cost, Date, Vendor 
-> 

• 

INPUT "Edit which record (enter ,• 
record number)?" TO RecNo 

GOTO RecNo 
ELSE 

SEEK Search 

RecNo = RECNO () 
ENDIF (Howmany > 1) 

* Store original field values to variables 
01d_Part = Part_no 

01d_Qty - Qty 

01d_Cost = Cost 

*- - Display edit screen and allow edit. 

CLEAR 

Deleted = " " 

§ 1,1 SAY "Edit NewStock Transaction" 

@ 3,1 SAY "Part Number" GET Part_no ; 

PICT "!Ii!l" 
§ 5,1 SAY "Quantity" GET Qty 
6 5,20 SAY "Purchase Price" GET Cost 
@ 7,1 SAY "Date" GET Date PICT "99/99/99" 
§ 7,15 SAY "Vendor" GET Vendor 
@ 9,2 SAY "Delete this record? (Y/N) " ; 

GET Deleted PICT "I" 
READ 

* - After editing , adjust Master file. 
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* - - First handle change in cost. 
IF Cost # 01d_Cost 

NewJPart = Part_no 

New_Cost = Cost 

USE Mater INDEX Master 

SEEK New_Part 

IF FOUND () 

REPLACE Cost WITH New_Cost 
USE NewStock INDEX NewStock 
GOTO RecNo 
. ENDIF 
ENDIF (Cost # Old_Cost) 
DO CASE 

* - - -if new stock transaction to 

* - - -be deleted, subtract its 

* - - -quantity from the Master 
* file and add it to the 

* - - -On_order field. 

CASE Posted .AND. Deleted = "Y" 
DELETE 

No_Dels = No_Dels + 1 
USE Master INDEX Master 
SEEK Old_Part 
IF FOUND () 

REPLACE Qty WITH Qty + ; 

01d_Qty 

REPLACE On_order WITH ; 
On_order + Old_Qty 
ENDIF 

* - - If Part number changed, 

* subtract quantity from the old 

■ * - - part number, and add to the 

* - - new . Do the opposit for the 

* - - On_order field. 

CASE Posted .AND. Partno # 01d_Part 
New_Qty = Qty 
New_Part = Part_no 
USE Master INDEX Master 



Til 
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C-krt 



SEEK 01d_Part 
IF FOUND () 

REPLACE Qty WITH Qty - 01d_Qty 
REPLACE On_order WITH On_order; 
+ 01d_Qty 
ENDIF 

SEEK New_Part 
IF FOUND () 

REPLACE Qty WITH Qty + New_Qty 
REPLACE On_order WITH On_order; 

- New_Qty 
ENDIF 

* - - If user just changed the 
quantity , adjust the 

- Master file quantity. 
CASE Posted .AND. Qty # 01d_Qty 

Diff = Qty - 01d_Qty 

USE Master INDEX Master 

SEEK 01d_Part 

IF FOUND () 

REPLACE Qty WITH Qty + Diff 
REPLACE On_order WITH ; 
On_order - Diff 

ENDIF 



* - - 



ENDCASE 
ENDCASE 
ENDIF (Search # 0) 
ENDDO (while Search # 



0) 



Pack the New 



* - - - If records have been deleted 

* Stock data file. 

IF NO_Dels > 

CLEAR 

? "Deleting unwanted records from NewStock file" 

USE NewStock INDEX NewStock 

PACK 
ENDIF 



TiV 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



Jl A^j»j g-brt 



*----- Done , Return to NewStock Menu. 

CLOSE DATABASES 

RETURN 

Ji».>L ^iJj . L,Uj ^LJI g-b^JI Jjl, s/IjJI oI^jul. *LSjIj Ijuj g-li^JI, 
0* f^J •-*>- • 4 »M 0* -^h * <Jj* j**^ *j^ f± (Search) ^udl 1 

^Ul P >>JI pj, Jj^^a J> (UPPER) JUIjJI .jl^i-j JJjjJ . j JLH . J p u,l 'j* 
II* ^j3 sUUI ^^kwJI, . ^^1 J3U,, ^ s^ j,^ Jl r Ji^Jll -0U.JU 

p>JI 

No_Dels = 
Search = "1" 

*_.__-.. Ge t p ar t number for data to edit. 
DO WHILE Search # "0" 

Use NewStock INDEX NewStock 

CLEAR 

@ 2,1 SAY "Edit NewStock Transactions" 

@ 2,60 SAY DTOC(T_Date) + " " + TIME ( ) 

@ 3,0 SAY Uline 

? 

ACCEPT "Enter part number to edit(0 if none)" TO; 

Search 

Search = UPPER (Search) 



tftJ ^1 o>U«JI aJkP j~**-j >j£jlA\ -diol ^JJI *>>JI a3j q* <i**«JI jCLj xJ 

jjlnni II 



Jxi- j^. JJa aJLjj . (Howmany) ^-uxJI ^ aJuJI 11a j>j>^ /^j-H 11a 



IF Search # "0" 

*----- Count the records with that part number 

SEEK Search 

COUNT WHILE Part_no = Search TO Howmany 

: 15 JH£ JJij pAA A y J I ^jJwh3 *Zj »3J\ 11a J* jji*JI *£j J 1% 



rtA 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



obLJI Aj±*j g>bjj 



DO CASE 

*___.._ if part not found , warn user. 

CASE Howmany = 

? " No such part number" 

? CHR(7) 

oAA oliUj Joj* j^Sj , ^^^LUI ,-^jJI *3j ^^Jtl l$J o>L>wu, sap JU* IS" I5[j 

: SJlxJI 

IF Howmany > l 
CLEAR 

SEEK Search 

LIST WHILE Part_no = Search Part_no , ; 
Qty, Cost, Date, Vendor 
■? 

INPUT "Edit which record (enter record ; 
number) ?" TO RecNo 
GOTO RecNo 

Iaa Jl V UXII ^ v ^ikll 9 yJ\ pi, J* ^^»o j^\j J^ JUa tf lih, 
J>U ^ Ali ^ (RecNo) S^IUI _^az. ^J J^J| .j, Cx ^ A3j j^j| 

: 2U^I jA— II 

ELSE 

SEEK Search 

RecNo = RECNO () 
ENDIF (Howmany > l) 

^ <±>ju* VJ 1UI J>_J| J^u j^u oLy^ ^^yij ^ JLsJI *>>JI ^_, 
JJi ^ . ^J\ <-*U\ J*jus ^ .OJi juu I^Ija^I ^ ^ sjli ot^*^ 

old_j>art = part_no 
old_Qty = Qty 
old Cost = Cost 



xt\ 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



obLJI ^jA>a -.bjj 



»^jioL«JJ JUL^I J>« d.bLu Jojju g-obj-JI ^Sj JLJI pj^l Aj 
(NewStock.dbf) aJL^I ^U ^ J^l ^ _,1 *1>1UI J^s^JI jjjuj ^jlSUj 

CLEAR 

Deleted = " " 

§ 1,1 SAY "Edit NewStock Transaction" 

§ 3 # 1 SAY "Part Number" GET Part_no ; 

PICT "!!!!!" 
§ 5,1 SAY "Quantity" GET Qty 
@ 5,20 SAY "Purchase Price" GET Cost 
@ 7,1 SAY "Date" GET Date PICT "99/99/99" 
§ 7,15 SAY "Vendor" GET Vendor 
@ 9,2 SAY "Delete this record? (Y/N) " GET ; 

Deleted PICT "!" 
READ 

ts ~~£>J\ JJLil ^i obLJI Jo^iy ^b^JI rJ ^L JLdl o-^JI-^j 

* sLi^l ^J_L ^j L4JLJJUU j^t ^jj| obLJI J^ pL^ (Master. dbf) 

4J_jA*j pSj (Cost) *j>aJI ^^ Jjlp -.i-w^ll"^ lili . (NewStock.dbf) 

IF Cost # 01d_Cost 

New_Part = Part_no 

New_Cost = Cost 

USE Mater INDEX Master 

SEEK New_Part 

IF FOUND () 

REPLACE Cost WITH New_Cost 

USE NewStock INDEX NewStock 

GOTO RecNo 
ENDIF 
ENDIF(Cost # 01d_Cost) 



^1 jJ-x^jl^U j^JU 6>Af>^ ^ ^ob^JI U < (Deleted = "Y") J>«JI 
O-*- <^*JI |kSj, . <j ^UJI ^^[j ^--S^ll * — nJLLI gLki fjSu *5 C (DELETE) 



TO* 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



obLJI i'.j.ih.t g>b» 



v_JLUI c^j>a ^-^£11 Jl 3_«£JI aJL* <JLi,l ^ US' « t5 -~5 J JI JlUI ^ 

: 3LJUI jjluJI J*i. ^ jUjj " (On_order) 

DO CASE 

CASE Posted .AND. Deleted = "Y" 
DELETE 

No_Dels = No_Dels + l 
USE Master INDEX Master 
SEEK 01d_Part 
IF FOUND () 

REPLACE Qty WITH Qty - 01d_Qty 

REPLACE On_order WITH ; 

On_order + 01d_Qty 
ENDIF 

^JJl *y>J\ jj, J->^ pA*x«JI ^ Lajlp ,^1 <JU gJLo JbJI pJhjJI^ 
O-*- 11 o-« ULiil 2L«£JI ^^ ^b^JI ~jm *JUJI aJu* ^ . <JLp fcUs^l ^--0, 
e^i <^Si\ Jl <^XII aju>> ULfel ^ Q" . JuJl*JI *>>JI Jl "L^sUsI^ jjLJI 

: jyui j^Lji j>u-' ^ jji ^ . ^juui 

CASE Posted .AND. Part_no # Old_Part 
New_Qty = Qty 
New_Part = Part_no 
USE Master INDEX Master 
SEEK 01d__Part 
IF FOUND () 

REPLACE Qty WITH Qty - 01d_Qty 

REPLACE On_order WITH On_order; 
+ 01d_Qty 
ENDIF 

SEEK New_Part 
IF FOUND () 

REPLACE Qty WITH Qty - New_Qty 

REPLACE On__order WITH On_order; 
- New_Qty 
ENDIF 



Vot 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



«=>bLJI <&^A»jr ~bj| 



,3**o ^1 <**£JI JjJlhIj j»,v-vi tl »jii Ljo* 3j*»3I 5ULJI pJLo JLdl o^l? 

: $J-*JI 6Ju* jw»_j3 SJkJI ^JL-JI^ . JjJuijI jku sjua*JI *^S^j J^l ^u-^JI 

CASE Posted .AND. Qty # 01d_Qty 
Dif f = Qty - 01d_Qty 
USE Master INDEX Master 
SEEK 01d_Part 
IF FOUND () 

REPLACE Qty WITH Qty + Diff 
REPLACE On_order WITH ; 
On_order - Diff 
ENDIF 
ENDCASE 
ENDCASE 

ENDIF (Search # 0) 
ENDDO (while Search # 0) 

UL^SlI e-aljj-j Jl Si^lll^ oUUI ,35UI {Sj *J . (PACK) ^1 Jju*i«»L 

: aJUjJI ajjo p*^»_j3 <JUI j^L^Jlj . (NMenu.prg) 

IF NO_Dels > 

CLEAR 

? "Deleting unwanted records from the NewStock file" 

USE NewStock INDEX NewStock 

PACK 
ENDIF 

CLOSE DATABASES 
RETURN 



ror 
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&IJI x»JI 



Jju^jlIII^ JLk.a'Vlj ZjuuujukjM <j£\£l\ g^L*^.* * 
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^ |kij, . UT ^J|>ill <*LJ» J*. J-J-L ^jJI (Accounts Receivable) 
obLj Sj^LS >_«JLo ^ oki*j (Customer) J. t . fcJI JI j^J ^-»>ia »LkJI |jm> 

*SjUJI objUJI^ (Current balance) JCJUn" <jjLil Jl ? ildlb J^jLl, 

>_5L> ^ (Payments) jIjuJI obbj ,>j>AJ ^ US' . (Aged balances) 
t-iJLo ^ (Charges) iJ^JI obUi &-&*3 pij US' . J-aiu obbu sjl*13 

. $£>UJI oUUI alfe £-*j -LjjJU. £°b>JI /»J*i> >>-l v=jbUj SJu>l3 

^_c J-oL«jdJ sjljJl*. JjL-j ^ti^ju. £*LJI IiIt>I ^p -LkJI iJun JLJ,.^ 
?—ilja LjJMi. ^-o p^Xj US' . (Relational Databases) iLij tl oUJUl 
^LJI JLjUS - J-^-J ^ (Procedure Files) oL, (ri.ll cjULo Jjlj*jl»J 



aljL-JI 2LSjJj (Monthly) ^ Sj ^JiA\ UJ^ll J^L-Jj « pX .Jl obUu 

(Charges Transactions) ui^oJI "£">»-_}( Payments Transactions) 
JSJ (Invoices) ^Ls JjloL JJiJI ^^Jb, . (Account) V U* J_SJ 
: ^> J - J*j i ^s-iU (Starting Balance) 2LjIjo^[| SjjUII ^j-3 yl.„„-». 
. (Current Balance) SJLJI S13IJ.I «j < ^!*J| |jm, j£». j^ jfjj^ 
JSD l _s J ^£JI JbLLdJ( Summary Reports) l^aSJ** ^-jjLii »lkJI ^ij_» US* 
O* ->**!> k* v ' k* v < k« r * J*** ^jM j^&j biJ >»*, US' . J-** 

g . hZw . 2 ^^1*. J-*JI S^jJtli j^o ^LiwyJ (>J>=k3 Usui »UaJI j^JLj US' . U^J \* 

. >U&JI 

,JI»*L\Lfcdl £l1£.12 JliA iJL^iAaJi T — tA 

• J^**J' '^ V-Uo^l ^bUJI J£ J* jjy^ tS^ 1 (Customer) ,_U*JI 
»!>*"^ J-^-J 1 ^!y ol % ^^olj ^jJI (Charges) ciJ-JI SS> uiL ^"bJU 
O—iaj ^aJI (Payments) JjuJI <S>. cJLL v*JUU . LbjU^J, Ujj^dl 



rov 
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. ^j[yUI JuJuuJ i-J5^o_j fciiLSl*_iJI oblu 

( Cus tamer. dbf ) JjumJI ^L»Li-» i_aLa ^ - T — NA 

( t - ia ) J£sJL ^>vi>jll J^*»JI ^ J*«*JI obLj t^L. q^&j 



iumi 


iilMlil^inSill 


mUMii^M 


■Mil 


HiHII 


i 


ACC0UNT_N0 


Numeric 


4 





2 


CUSTJHAME 


Character 


25 




3 


ADDRESS 


Character 


25 




4 


PHONE 


Character 


13 




5 


LAST_UPDAT 


Date 


8 




6 


START BAL 


Numeric 


8 


2 


7 


CHG CURR 


Numeric 


8 


2 


8 


PAY CI1RR 


Numeric 


8 


2 


9 


BAL 30 


Numeric 


8 


2 


10 


BAL_60 


Numeric 


8 


2 


11 


BAL_90 


Numeric 


8 


2 


12 


BAL_90, PLUS 


Numeric 


8 


2 


13 


TERMS 


Character 


2D 





( \ - \A ) J£& 



•J ^b J2* j* ^ o ) pJ, JfcJU, ' 



( tY ) 



D" 



Q>^{ 



jkJj Ji — sJK, . Jj^—j >-T £jjb Ja* ja ( a ) fj, JlsJi, . U, 
^IjuJI ?£>» Jj^>- j_«i ( A ) »Jj JtoJjj - (Current Charges) 



roA 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



plbil 



Ss^\ji\ J- 2 a. _^jb ( \ ) *J, J^>J|j . (Current Payment) SJUJI 
JS*JI^ . (> -j > $-£ J>U -ojl^ll JiU j* ( \ • ) pj, Jfejj^ . ^& J5L. 
_^J» ( \X ) -J, J5*J|j . j^aA VDb Jpb- fcjl^ll ja*. _^A ( U ) J, 
^JJI JJL* j>A ( IT ) pj, JJbJI^ . _^1 2uuJ J>U to^l Ji_* 

.(Credit) 

oUlil Jsljj ^ (Account_No) wjL-u^I *J, J a*. »jl»ju*J} 

IIjo Jp p Uj 2L3MjUI oliUI U.^S jca 1 t5 -~JJI ^ .dJJJj . *£>WI 
jJa-JI SjL-sS" *ij (Cnstomer. dbf) J*«-«JI v_aL« -Uu^^ilj . J-2-»JI 

. (Dot Prompt) Skadl Sj__JLo ^ ^^JLJI 

INDEX ON Account_No TO Cust_No 

J-j-o-jJI j»~wl J-Aa- J* *Lj ^»T ,j*»>$fl *Lijl j^^»J -iUU £ 4 **uLj 

«^J J-jj-»J ^ (UPPER) aJIjJI »Ijl&«lJ q-Cj? . (Cust_name) 
Cj* £*»JI J-#^ (Uppercase) S-^S" Jj^ Jl ^^ill ^ J-~-JI 

. (Dot Prompt) 
INDEX ON UPPER (Cust_name) TO Cust_Name 



(Charges. dbf) •__a > «*eJI <K^»- > il» Y - Y - >A 

Ko^a^S J^SsJI (^ (Charges. dbf) <Jj~JI 3£j_»- .-AJLo qj-£l) 
u^L-^JI j^Jj J_s* 1 Js^oL^ < V - \A > J-CiJI "^j 
(Type) £jJI ,^-JJj p—111 ^ju-iij «-iill ^ •i>-^>-« (Account_no) 
j-UioS' >jl»^«j uij«. ^JJI J*»JI <j^f -tUij c (Width) rf>j*&\ o^J 

. <£h)\ cjUUI ±uj (Key Field) 

. (Dot Prompt) *k£JI S^-JL* ^ Jlul jJa*JI 
INDEX ON AccountJNTo TO ChrgNo 



ro\ 
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*u*» 





















1 


ACCOUNT_NO 


Numeric 


4 





2 


INVOICE_NO 


Numeric 


6 





3 


PART_NO 


Character 


5 




4 


QTY 


Numeric 


7 


2 


5 


UNIT_PRICE 


Numeric 


9 


2 


6 


AMOUNT 


Numeric 


9 


2 


7 


DATE 


Date 


8 




8 


DESCRIPT 


Character 


20 




9 


BILLED 


Logical 


1 





< r - u ) J£& 



( t ) 



JJbJjj • 5^1 _^, JS» J*^ < o > fJ, JjUl, , U^ll JJL^ JjUj 
J-Uj ( V ) ^ JJUJL, , U^l USJj JUSJI JjL^ J^ < T ) j^J 

« „i^ji u»p ^a^j jjl. j^ ( a > a, jjuji, „i^ji ^jjLi j[*» 



aJUOumJ 



r 1 



V 



( Payment s.dbf) laIlwJI ,, cl» Y - Y - ^A 

>_^l J^»JI ^ -uj^Sa ^sj (Payments. dbf) aljuJI ^aL Ll 

. ( T - \a ) JS^JI ^9 

^J, JJbJI^ « <pyjdl U£il ^21 Jju Jj^j ( r ) ^ Js*J\j < 1 



*-~j J** J*~i ( o ) jo, JJLJIj , *|^*J| ^b jL. jjuj ( t ) 



r 



TV 
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.LkJI 











































1 

2 
3 
4 

5 
6 


ACCOUNT_NO 

CHECKJHO 

AMOUNT 

DATE 

DESCRIPT 

POSTED 


Numeric 

Character 

Numeric 

Date 

Character 

Logical 


4 

5 

9 

8 

30 

1 



2 



( r - u ) J£& 



: \ji\£ (Dot Prompt) *JLUI 



INDEX ON Cust_no TO PayNo 

. *>UJI Jl 
: JujJuUI ^bLJI ^ J*UdLI o^lU^I JCfib JUa 

AljjJJI 6JiA jtioJj . LftJuJLuJt 3>>wJ iljbJI jl ti^uail *S^». J^ £*** -\ 



m 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



al&oJjj (Charges) ^JL^\ IS J& M ^j^g J| ^s^ji o^, 

. J^ ^ Jl (Payment) 

l«5l SJbjJJI al* SAili, . (Historical file) { ^ L) b ^iL. Jl 

i&Ux^l 2-. Lj^i Qij-J^ -^i^b '-l^ 1 ^5^ -kU^III Jl ^Ap 

. U^jo«j j^ ^p- ^| q* aajLJI obLJI £-*»^ 

« viJWI JU^II r ljAi«l pi*-, -u.^ ^UJI *>UJI oLL.* ^Lki J>L. ^j 
UlL, Jl oIa-Jj oj-JI ^yiL. ^ Ujljju-j jo ^1 o^Uv-JI £-*» Jji _jj^ 
u^ 3 ^ ^^Slj^JI ^W 1^ ck>>*J o^ • (Historical Pile) .-^b 
{-Zj (Charges. dbf) ui^lll ULLJ (S &^b Ulo ^LiSi, . <JL»iu ^\jA J 
<ju~~j ^ x_ja_>. ^JJU Jl (Structure) ,,8 , 1.JI J <_ui> ^ - ■* 
iL&Jl ijfjL. ^ ^bJI l> j > k*JI l-iisS* jLli, . 5Lu (BillHist.dbf ) 

. (Dot Prompt) 

USE Charges 

COPY STRUCTURE TO BillHist 

^UUlS" jkJLj (Payments) JjuJI eJULl *^jJL J3L* ^^io)^ ^- *L£4> 

. <LsJI s^JL. ^ o*JWI oiA*- 'I 

USE Payments 

COPY STRUCTURE TO PayHist 

Ltjik. ^ ^ ^1 o^l^JI JJb JLJu* c Uol ^ *JbJI „!>*J|| ^j 



p>L*p <sU»lj Ua»-I j^5j JCJLaiui g-ol^j sjlp qj> p5L«JI obLu* g*b>j q>&j 
< *:>U_JI j^J obLu JjJmij dfbJIj , ^!>«J[j >jjUxJI <*LLj ^ibJIj « *aJL»- 

. gJI . . . _j ^£^-£-11 J*».jiJlj ^I^JIj 



nr 
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( L - u ) J^AJI ^ r~aZi g*lj>*JLI (Hierarchical) ^^Jl J££J[} 



>Jl-s. J-^S-j <j1 



0> v 



JUbAl3 5*^wi SoLj^J 3JUJL»- 'U*»uj J.Ai*l*ul 

• I I _ » .- I Ml II • ' M 



^.b^j ^ IxJi-j ji^t ^b^JI J JS^JI ^ A».Mjj 



UlsJI 



31 



15 9 p 3 **" 



jsUjJ* . oLiJLc 



, JLdl v-iUI ^ l^^A (<^*-j (Procedure FileJoljJa »JI 



\A.R.prg 

VAccounts Receivable 

lAf&fn Menu 




I.Add new customers 

2.Enter new charges 

3.Enter payments/adjustments 

4.Print reports 

SLEdit data 

6. Do monthly posting 

7.Exit 



9 NewChrg 

1 2 




B NewPajp 

1 3 














::Aae5umm::: 

iiiifiHiiiiii 


:::EflEiifl::::!: 
:i:£idChrg::::i 
:::$#!?)&:::::: 



( I - \A ) J£$> 



nr 
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aljLsJt cliL. 



oLiL Jju>JL-.'l ^j « t£j-^l (DBase) UsU g-.}^ J (DBase III+) 
>Sj> ij^wj . (Parameters) o>L.L«ilj (Procedure Files) ol^LiJI 

. (A/R) f>L_iJI oLL*jm gcli^j ^ Ul^I a!* »Ij&lJ 

^C.^ i (Routines) s^^j<-« j^I^j Jp \Sj*^i k -*^ >* ^{^lw»JI *_iL, 

."ol^ki. oUJLo sjl* *Lkil JlloJj • (Library) g-Lrt 2 4^ -w^ °1 ^ 

2gL£ J-4-J Jl ^ys ^Aj . cJjJI o^ 3 i5* ^ O- -^ C^ 0**** 0-^J 
^1 JU^I oUUI jJlp SiLj3 SKi-. J* ^Jiia Upl US' laJu&a <p^.j ^-oL^-JI 

• ^-U S^p Jp (jj^^J 
. <$jLJ v ll£JI J (SET PROCEDURE TO) ^Ml Jl ^J 

^i'^JUaJ aJLj (SET PROCEDURE TO) j-o^l Jjl»£-Jj **£s JLLp ^oJUI ljuftj 
r^yusJt I**** iU-li £»I>JI J .a™ ,3 Spj-u. jl ,jijj iJJbj . (RAM) fcsyi Sj^lJJI 

. s^iiji jl QajZii &* £*L«-" a ^* J 51 Jl l * 3 '" i ^r 1 * -^ 

»U g-b^j ^1 aL^ j^Ioj .-JJUI J»b Jj*-^ (Procedure) g-li^j JSj 
^-.^I>Iol*jl«.Lj JJi »jl^ . jlh-T g-l>j ^1 ^ A-oljLiiwI j^Cj (General) 
g-oLij-JI Jl JLu« oX-.L« JU-al Jl ^ayi jJi\ llAj . (PARAMETERS) 
^i P^b^JI JuJjwd i^^-i-1 o5LoLw »Iji»i£*uI j^ioJ^ • I$jl»*« 1 a^ .« l->i ■_**«IjlJ 

. p^UJI oLL**. g»b^j £o <«jL>i«il (Procedures) 

(Title) J,I>1»JI ^»^^ T - ^^ 

Jaui- Xdw, u JL>JI jk^JI j^Jjbi <uLzSj o!>** i£ <jLiSJ ^*Ljj_JI IJla >jl»jl«_j 
I go ■ d'i" 1 aJJj 'LmiLwi |c) «-« ^bcu^JI lju> >Ijl>jLwjI ( ^5Ldjj . <Li>LiJI { jojta ^-Coj—s- 

Aibj t (Title) ^-.b^JI ^m.1 <JLj (PROCEDURE) ^>% g-li^JI Ioa Ijuj, 

nv 
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^,1 -UL. (PARAMETERS) ^1 ^b* ^ ^Ul J-L.JI ^ . J^ll ^kJ| ^ 

^k-JI^ t (Title) l>t-J! oUCj ^^Sj JUI ^^-Jl^ t JLaUJI *-«< »jjb JUI 
Jxt j^u.^ r >u JUI >-JI, < JUI ojpij JUJI f ^JI ^b $b^ LjJ JUI 
j^» ju q^ (Uline)^Ixll a ) *k»3L ^ . (Uline) *aLsJI ^^ ^^ 

PROCEDURE Title 
PARAMETERS Title 

*----- Display screen title 

CLEAR 

@ 2,1 SAY Title 

§ 2,60 SAY DT0C(DATE() + " " + TIMEQ 

§3,0 SAY Uline 

? 
RETURN 

&\jj Ldjljip ^-uJ^I g-b^JI j^q <kSi ^1 ^i ol ; UL*JI aJu» ^ ^tll PigZ-^j 

i ^^-Jl Ja-aJJj cJjJI^ (^JUsJI »jJI £Jjbj o!y*" ^m^L* j»JAzJ.JLI &J.I& ,j^P 

JJi, . -c^UT ^[jjLI ol^i-JI *J g-iijr IJuk ^1 dj (DO) ^1 oUT ^&j -oli 

Do Title WITH "Accounts Receivable Main Menu" 

^a LgJ *JbJI obLJI 1 (DBase III+) ^b* a*u (WITH) SJLS^ 
juijti iUJJj . (Procedure) ^^aJI ^b^Jr ^ Uij^ j*— ^1 o£obil 
-oLi (PARAMETERS) j-Al ^1 g.bjJI J^y' JJL*j , ^o^iJI j^b^JI IJUb JuJUJ 

j »j <JL*.j>I *_-_3 l5^— ■" o!>- ; -^^ (Title) jI^js *JI Jjt j^j 

g-eUjJjl JuJLa xi*i JJU . ("Account Receivable Main Menu") 

Accounts Receivable Main Menu 02/20/90 12:50:30 



m 
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(Procedure Files) ojj k ■>. II oLaJL o ^? Ua.il »Ai*z»«J j^mII g»L«J' ^ 
J* *IL^!I JJL-, ^^ ^ -jlAs^ £*b>JI Ij-«»j . *lk^sll JjUj gJj^ 

^L* u-..lt.7,ll aJuA^ -r^ <S^ J— % V A ^ ^ aJhil f*««JJ c*^ ^-LiJI 

: aJIxJI jJLJ q* qj&Lj golj^JI I^Aj . IkiJI iJcJb 

PROCEDURE Error 
PARAMETERS Message 

*----- Display error message. 

@ 20,0 CLEAR 

@ 20,3 SAY Message 

? CHR(7) 

WAIT "Press any key to try again" 
RETURN 

^ ,|j£j| U.UJI jw-^j rJ Sj (DO)^I IL^.1^ oUjcu»I xlp g-bjJI Ijj>j 
r yL ^ . U,HJ\ ^ *****> ^.bU-Jl J-bJ ^ ^Uij • J*~%j (20) >-JI 
'jjLiLj L£ . (DO) j/i\ £* l*Jliol jCu. ^1 (Message) UaiJI ^JL^ j^ 

t^ ^1 JdLU J £lSi. ^ Jp pJuiJL«jLI -LS-^{ ^ j-^Jj (Bell) ^^^Jl 

: JbJr^sll tL>b£ jh* M*^ . (Message) ZiL*J\ ^ Uwi.^. q^Lj 

DO Error WITH "No such customer number!" 

: JL&LJI JJuJ ^fll ^^u g-li^JI U 

No such customer number ! 
Press any key to try again 

c LzJu ^1 Jj> JaJuiJI .aae JU ^ ^iixij^ (Bell) ^^1 J-a-£j US' 
»ijj . jji»vo (U-** , ~ J ^^ o* *£"*•*' I I** ^*3j jl ( J_«jJI jx^ul JLsaIauI >>v>l".^„q U 



T'U 
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: ^tf J^l^ ^1 J>U ^ jUi 



DO GetCust WITH ; 

M_Cust_No , M_Cust__Name , M_Address , Exiting 

j* U*«j-»j -JU-aI jo ^jji j»— "j!^ 3l«uji JtZaJi »uj ^ «±^>JI -r 

^•(..oiMi.llj Lk*. <JLuj ^jojfi f*z& A jty ^** tr'^**^ Hb Jl^" 3 ' 'UL>- .-J -i 

. Juib S^e SJjUil* >,,\-vr.„rir 

j «y iJ L ^1 pLUl S-Hj^Ja o^-^ o^JL»JI «_iJLe pLa.il «jj 

^o>{ JgbS' *3 (MODIFY COMMAND) _^l Jjas-I* jlii, . (Command file) 

jl ~xs»l j_»j (Proclibl.dbf) O ->.ll 6Jl_» ^ 4-*—^ ■■■* HI 

^-0 ojlp Jp lS* 1 *^ o' t>^! »=»!>la£jl «— *A*j • (Procedure Library 1) 

. ^L*/fl j«- U" JaSi g-Ln info J* (jyS»o (Proclibl) 

ji^«*t 4-JLj (PROCEDURE) ^L 1a-j (Procedure) ,*■*>-» g-*^ J^j 
o5LoLCjI Jjl3JlJ <JL>- ^j . (RETURN) j-«$L< iS ^Uj^ ^b^JI 
5j-&Lw. JUil ^L-JI ^ (PARAMETERS) ^Vl Jjl*j^»I ^Xj (Parameters) 

. (PROCEDURE) ^l^k-J 

. (ProcLibl) Uill\ jAji ^z>ji *J\sl\ jj^L-Jlj 



rv« 
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*************** Proclibl.prg 
* General Procedure for the AR System 

*----- Display screen title. 
PROCEDURE Title 
PARAMETERS Title 

CLEAR 

@ 1,0 SAY Title 

@ 1,60 SAY DTOC(DATE()) + " " + TIME() 

@ 2,0 SAY Uline 

■? 

? 
RETURN 

*----- Display error message. 
PROCEDURE Error 
PARAMETERS Message 

§ 20,0 

CLEAR 

@ 20,3 SAY Message 

? CHR(7) 

WAIT "Press any key to try again" 
RETURN 

*__«_-. Look up customer by number or name 

PROCEDURE GetCust 

PARAMETERS M_Cust_No, M_Name, M_Address , Exiting 

* - - Set up loop for validating customer number. 

* - - Enter customer number or customer name and 

* - - look form it. 
Valid - .F. 

DO WHILE .NOT. Valid 

* - _ _ Get customer name or number 
Lookup = SPACE (20) 
@ 4,0 CLEAR 



rvt 
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@ 15 , 5 SAY "Enter customer number or name" 

GET Lookup 
@ 17,5 SAY "Press Return to exit" 
READ 

* - - ■ - If nothing entered , return "exiting" 
IF Lookup - " " 

Exiting = .T. 
RETURN 
ENDIF (Lookup is blank) 

* Lookup by name if name entered. 
IF ASC(Look up)>= 65 

Lookup = UPPER (TRIM (Lookup) 

SET INDEX TO CustName, CustNo 

SET EXACT OFF 

SEEK Lookup 

*----- if name found 

IF FOUND () 

* - - _ -Display customers with required 

*----- name 

M_Cust__No = Cust_No 

§ 5,0 CLEAR 

@ 6,0 SAY "Number Name Address" 

DISPLAY OFF WHILE UPPER (Cust_Name) - ; 

Lookup Cust_No , CustJName, Address 

@ 22,2 SAY "Enter customer number" GET ; 
M_Cust_No PICTURE "9999" 

READ 

Lookup - STR(M_Cust_No ,4) 
ELSE (If name not found) 

DO Error WITH "Not found" 
ENDIF (name not found) 
ENDIF (name entered) 



YVT 
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*_--.-- Lookup by customer number. 
IF VAL (Lookup) > 

M_Cust_No = Val (Lookup) 

SET INDEX TO CustNo, CustName 

SEEK M_Cust_No 

*----- if found, Continue, else ask again. 

IF FOUND () 

Valid - -T. 

M_Name = TRIM(Cust_Name) 
M_Address = TRIM (Address) 
ELSE 

DO Error with "Not found" 
ENDIF 
ENDIF (number entered) 
ENDDO (while invalid entry) 
RETURN 



. - t j IL I I ._& 1 1 1 ^J %[£ *3 (SET PROCEDURE TO) ^1 jJjl^X-u»L Aii 
jjj\ h\£ f£i t (A/R) *£*JI oLU* ^li^j ^UJI ^[frkiJI oil* gUJ 5li*9 

: JlsJI 

SET PROCEDURE TO ProcLibl 

SJt3>JI Sj-STloJI .J (ProcLibl) ULill J--^ 3 J 1 tS^ -H^ 1 ,Jl * ^^J 



(DO) j-^1 plJAi-L* Udll I3u» Ji.la ^b^ ^1 Jt*il3 q£^ JULj < (RAM) 

-Liu 2 1 ,'tMu US 



LS . (CLOSE PROCEDURE) j!i\ =uUS ^SUj ^jliil ol^J^JI oiL ^'ilj 
ojj) k-UI UlLo ,3>LpI Jl ^J^J lJUb q\ .£**»• . ^T oLJaJ- LJl* ^Is j;^^ 



rvr 
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(Parameters) o^UUll JL^at V - \\ 

^\j1lJJ\ g-l^ Jl .&5L.LJI JUal ^(PARAMETERS) ^-.Vl ,Jl£JL«j 
pj ^1 oS^Ull JUol Jl ^zyj jjbj < c Uo'ill j^m, L£(Procedures) 
»-Lj-i o*-Ldl JU-ol ^ . 6 JU4 Saj^ll olj-JUdl ^ (DO) ^H\ « l^U* 
^ (DO) ^1 jl^ l^lU^I ^sj ^1 o5LUI oji* Uk»3L v-^u . «J^J| 
^ . (PARAMETERS) ^1 juu L^US" ^ ^1 oj^JuUI aJlJ l^lk. ^ I 

. Lki- <ILuj j^iajOj «-iSjXj gwtljJI jjli 

l»,i> v,?.^ (GetArea) <**,! olj-Li- g-ls^j *UjI J±j JlJUI jj!>-JI 5Lui 

. (Area) , (Width) , (Length)" <JUI S3WI cAjasil 

PROCEDURE GetArea 

PARAMETERS Length, Width, Area 

Area = Length * Width 
RETURN 

J^L-^JIj (25) ^^J\j (20) J^UI Jlial £- ^Lij^JI list, J-AAsi, . 

: ^1 ^b£ ^," (Area) 

Area = 

DO GetArea WITH 20, 25, Area 

: ^1 ^US" j*Xj (Area) Sa-UI ^ Jj>«JI jh*j 

? Area 

.(500) OJ*JI ^^fe JiaOLs 

plj^AJUul j^Ujj . <Jjas—I J*S (Area) ^^Jadl *-ij>*3 i^xr* Ua -k*^ 

: ^JSIS" Jihj l^ljLiiJ JJ 1^*3 £. oM-l*^" (X, Y, Z) oj-^uu ^1 

X - 5 

Y - 10 

Z = 

DO GetArea WITH X , Y, Z 



YVi 
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? z 



^tf (Z) _^dl <^3 j* JlyJI jop, 



(50) iJuJI j^j^Ji A*.Mj 




(GetCUSt) dtljtrtA.ll pjall^ «LjljI^iJ A - >^ 

. ^a-jjii ^LJI (ProcLibl) olj.kjJI tJJL> ^ vj-*^ g-»t-5j-*JI Iju" 

PROCEDURE GetCUSt 

PARAMETERS M_Cust_No, M_Name, M_Address , Exiting 

olsl*JI Za\j^ LuLu.? .juiJL-j g-lj^-JI Ij^-* ^ (Parameters) oMoUilj 

^1 >jLJ^Lu,il Ji-Ju i lil_j t (Lookup) ss*zX\ ^ >J^JI jl jk—'il UUfc ^J^^Xj 

£-« (Calling Program) ^jo-JI g-b^JI Jl ^^ ol^JoiJI ~>b^ ^U a^J 
^^jJa-JI J>U» £y> JJi * — Xjj . (Exiting) ^.JtfJI ^ (-T.) ^u*SJI SaUl 

IF Lookup = ■ " " 

Exiting = .T. 

RETURN 
ENDIF( lookup is blank) 

: -Llbdl j^JL-JI J5U. ^ JJij . j.^1 IJL* ^ a>^j io « (Uppercase) Sj^S" 
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IF ASC(look up)>= 65 

Lookup = UPPER (TRIM (Lookup)) 
SET INDEX TO CustName, CustNo 
SET EXACT OFF 
SEEK Lookup 

( Lj, r l U.I Ji.^1 r ^iUI IS" lil L ^J (ASC) aJIjJI JjiijuJ fj^ 
l« ^UJI o^SJl U r l3^l U . (65) jA (A) o-^JU ^isi ^ y ^». 
r ^X-JI ! ^(IF) ^u ijjJI JJL*3 U Aljjj . (65) ^ JJ] C|> i, 
t5*-> * J***" f 3 -* O^J f-^" J^ ^ 45^ l^*J < L.G,1 ^^Jj LSj^j-^ Ji.Ju 

1^ f 3 ' i^-^ 1 o--^ 1 "j^Ij (CustName) ^^iUI UiJL. Jii ^ «JUJI ajji 
C L~JJ (SET EXACT OFF) jJi\ jjjui^l La Ji^OL, . -JSl ISui a* cl^JI 



»_3. ILj^L .^l ui^ll «.\» &. . ..ilm '. «Jl v.- J| ^ jL -^ 

4j ^j^UJI ujLu^JI 



Oj>>JI 
f—ai P.AJ9 ^ 0>LiJI plo^.31 £m>». «^»liLj jV j*Xj ^1 IJJb y 

. VJ IUI J^JI Jl J^l j ^ 1^ < 

: aJUJI jjJLmJI JMi. ^ Jih ±zjj 

IF FOUND () 

* - _ _ _ _ Display customers with required 

*----- name 

M_Cust_No = Cust_No 

@ 5,0 CLEAR 

@ 6,0 SAY "Number Name Address" 

DISPLAY OFF WHILE UPPER (Cust_Name) = ; 

Lookup Cust_No , Cust_Name, Address 
@ 22,2 SAY "Enter customer number" GET ; 

M_Cust_No PICTURE "9999" 
READ 
Lookup = STR(M_Cust_No , 4) 

pj <>\ L* J^OL, . Iki. ^JLuj ^ ^ ^| |ju> Jp ^^1 j^ ^L- ^ 
ol ^ju, ll*j . jUI ^uii ^ i^^l ( Error. prg) ^I^J^JI ^b^ ^x^cu* 

YV"\ 
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. (Procedure File) --IjU *- II 

ELSE (If name not found) 

DO Error WITH "Not found" 
ENDIF(name not found) 
ENDIFfname entered) 

Li < l>-» q^3 lip. iUL. ,^1 £. (VAL) :UIjJI ^ glU ,^1 »JUI 1 ^wo-j 
^H'-T.JI ^ r JL3oLjl -OiJuL tf lil HI jJ*Sj* (IF) Juu a^JI J^l 

. \ij_y- c*«Jj LIjlaI (Lookup) 

4JLP (*»a*JI JLU ^cjo JJJJ ^dJlP Jia- _jA (CUSt_No) Jj*JI q] <±^»-j 

(VAL) SJIjJI j»Jl*2~J AJ'jJj C 2uj>Jlp 1^3 l^ijLlo ^UJI S*** 1 ' o^ O" Jl ^^' 
^xd\ lift ^p e»»*JI »Si fl < i$aA* .>**£• ^1 (Lookup) ^S2i\ J-j>*jJ 
^k«JI J>U qa jUh {£& . (CustNo)" J**JI pl^ ^UJI ^-rfiJI ^ii J^u 

: SJUJI 

IF VAL (Lookup) > 

M_Cust_No = Val (Lookup) 

SET INDEX TO CustNo, CustName 

SEEK M_Cust_No 

Iaaj (.T.) ^1 (Valid) j .jtU j^u [Xt J-m*II pJj J* j^aJI pa lal, 
■^ —Ml t ^_j^»iJ iiij j»_j < S^^ 8j-c A_jjj^SiJI 4-SJLJI jk-*ii3 |»Jl* Jl ^^3-j 
(M_Name) ^-^-jjlJI ^ <JI Jj-o>ll ^ ^JJI J^-JLj ^UJI (Cust_Name) 
j^jlj *J li[> . (M_Address) j L it\\ ^ (Address) <u ^UJI q\jS*1\j 
jjJL>mJ[j . (Error Message) Ik^. VL^j jbj» *Zj J-wjJI *3j J* ^yt«JI 

: 3LLJI oJub ^bj3 -UtsJI 

IF FOUND () 

Valid = .T. 

M_Name = TRIM(Cust_Name) 

M_Address = TRIM (Address) 

ELSE 

m 
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DO Error with "Not found" 
ENDIF(not eof) 
ENDIF (number entered) 
ENDDO (While invalid entry) 
RETURN 

q] SJs^oL (--^j US' . p5U*JI oLL**. >LkJ j^-JjjT g*bjJ[ J>U- ^-o *»jtf <jt j3 

. pLkilJ l^jiil ^»\jj\ ^ 4jJ S-ij^jII 



rvA 
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Jja^M j Jli.a'* j ti-.ijl UUN gJj, 



*:>U*JI oLjL^>J JL^j^JI ^jLsJI ^b^j I^^a pZj uij_«. J^jUI lJu> ^j 
^Ljj_jj tJ^JI SS^. JU-il g-b^jj 4A> ^5Lp JU»jI £*bjj, (Main Menu) 



£-*— j-y "j-^i *<->>»■ j«--3i ^"-LhO »«**- *■***■ Ji*-3i ^«4jJj iraaxn menu; 






g-ljjJI pi, *jio-JI jLii-l J* 9 Uj, . I4JL* jllli-XJ .JuiO^J.1 J* 

: JbJI ^1 h\£ f^ r b^JI fJL* J J4 . ^>^(l g.twJl 



SET PROCEDURE TO ProcLibl 



US". jjLJI J^l ^ <^a frU\ (Proclibl) ol > kiJI uUU gJj JJi, 
. g-b^JI 4jI$5 JJ (CLOSE PROCEDURE) jSlI olsS" 

. ( \ - T ♦ ) JSlaJl* ^vi^l 2C&LiJI ^2 ^.lijJI lift J-JLiJ JiiPj 







IfT^^Sw^ 










^j5EkSOr3d\ 


Accounts R&cefvab/e Main Afenzrm 








1. Add new customers 

2. Enter new charges 

3. Enter payments/Adjustments 

4. Print reports 

5. Edit data 

6. Do monthly posting 

7. Exit 

Enter choice (1 - 7 ) 





( \ - r. ) J£a 



TAt 
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JjJk-sJt j JUafl j *--*?>* tjUJI e«U 



sjwi jA«JI o- g-M '** aAu 



************** *AR.prg 
Accounts Receivable Main menu 
ALL 

- - Declare variables as public for passing to 

- - procedures. 

2 M_Cust_No, M_Name, M_Address, Message, Exiting 

- - - - Open Procedure file ProcLibl.prg 
iOCEDURE TO ProcLibl 

- - - - If color monitor in use , set colors . 
:olor() 

3t color to gr+/b , w+/rb 



- - - - Set Parameters 
5LL OFF 

SLETED ON 
5VICE TO SCREEN 
JADING OFF 
?ATUS OFF 
lLK OFF 

- - Get the date (RUN needs abount 320KB RAM) 
.TE 

- - - - Create underline variable Uline. 

- REPLICATE ( "_" , 80) 

- - - - Set up a loop for the main menu. 
- 

LE Choice # 7 



TAT 
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CLEAR 

*------ Print screen title 

DO Title WITH "Accounts Receivable Main Menu" 
TEXT 

1. Add new customers 

2. Enter new charges 

3 . Enter payments / adjustments 

4. Print reports 

5. Edit data 

6. Do monthly posting 

7. Exit 
ENDTEXT 

§ 23,1 SAY "Enter choice (1-7) " ; 

GET Choice PICT "9" RANGE 1,7 
READ 

*----- Branch accordingly. 
DO CASE 

CASE Choice = 1 

DO NewCust 
CASE Choice = 2 

DO NewChrg 
CASE Choice = 3 

DO NewPay 
CASE Choice = 4 

DO ARPrint 
CASE Choice = 5 

DO AREdit 
CASE Choice = 6 
DO Post 
ENDCASE 
ENDDO (while choice # 7) 

*----- Close procedure file and exit. 

CLOSE PROCEDURE 

CLEAR 

QUIT 



TAT 
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olj-jJJUJI £_- (PUBLIC) j—^l Jjl3*S«J jj-Ljj-JI IJU» ^ ^-a-M-J, 

i5 jlJ JJj, . (Exiting) « (M_Address) « (M_Name) < (M_Cust_No) 

cjl^kiJI jr-«bjj >lA3^Uo*il Lj^j^ j-ji*J IJUk £,T ^ ' jL !i Ju ?" O- t.^ ..jL. A .*jI 
IjJ a\jj ly> j£ ^ ol^^jOxJI 6Jjb *L£jI SaUl ^Jl £ b^>o )l jta-j . (GetCust) 

i-u^j -L&LiJI Q\y* AjIiSJ (Title) ol^L»JI «-cb^j >Ijl>jlw>I LoJ Ja^Lj 

SaLjjj JL&LiJI J-*-?J ^ (SET COLOR) ^1 >Iju>juuI Liu! -k^Lj 
*-« plSjjj <**!*- qj^Zs Jl (.5^3^ ^-^ Si^>-jil o>LLJJ «-o j-oMI Ijubj < U^juiU. 
£* Z+^^Jc^ :LiU» j^jjSj Jl ^j>j US' < V**^' 5-i.LiJI ^ ^i-a^ill qjJLIL olxSJI 
ajji J-jajo ^Ujj . (Highlights) V-H*-" 3ju*^!I ^ o^^" o*^ ^LxSUI 

. Sa-L>JI u»> (jl^J^JI 

aj*._jll (DATE) ^JjUJI g-ob^j J*i-llJ <ulJi»^J >J (RUN DATE) ^1^ 
V***- ^Wl ri;l3l Jj>**^ >J^i«JL) p«— j ^jX*. (MS_DOS) JdJL.£jdl »lki ^ 
(DBase III+) JLz- ^ (RUN) jJi\ Jj^&J 1 3-k*.>L JLjo, . **.LJI 

. »s«j(j J XX' q» Jl3M <x33^a S^Ij ^-JLLxj 

(Newcust.prg) *^Lo*JI 4fiL^.I g^Lj^-t Y - Y* 

(OUJUI Jajj J*. JL»I*J p>L«JI oUL**. »Ua3 ^ [PaS ^j \j*.jJS> JjLJI ^UJJ 

ajLoI JS ^0 LIT J***JI A> SiLjj .jaj jy>bjJ\ q] Lf . oJfjSj »Ji* ^ J^lzl[j 

: £jbJI ^JL-jJI ^j-jj 2l£,1£JI ^««j ^li^JI ,jLi < (AR.prg) 
Enter Customer number (0 to quit) : 1001 

jxSj AjlsTjl « V-tH-J 1 4U3L3JI Jl ^>jj (0") jL* 4jL^ jTjoJ 






TAi 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



J,,a-sJl j JU-^I j i^^jM UU* gJj, 



: SJlsJI 5JL*^I| ^J=J \*j>-y> USj »JL»ouil v ^ . vj Ujulpj 
Number already in use I 

ius-.l l s^JU ^ <^**JWI oi^ 3- ^" ^^ t3i>-^ o* ->' (Assistant) Jl^U-JLI 

. (Dot Prompt) 




yjgft/ New 
Customers 



\smivtixbi&mmBimtiim& 



jspfil 



Customer Number : 
Customer Name : 
Address 



9999 



xsxxxxxsssxxsxxxs 



xxxxxxxxxxxxxxxxxxxxx 



Phone :».♦■•♦.■♦.•♦■•♦■♦.< 



i w. t .n. i' | i i f t i , ii' M. » . < . » w .h 'ii . i . ' . ' L ' . ' ■ ■ .^ ffi ^^^^ ^ l^^ ' J l .^ ?^ffP^^?^ l ^ ^N ^ l^^ ' | ■ l ^ 'l ^^^^ ^ l ! l ! ^^ f t T l ! ^ ! J !^ ^ !! 



Mq ■■■■■ 



ML 

«JlllNBMHL 



xxxxxxxxxxxs 




II 



( T - TO J£& 



USE Customer 

CREATE SCREEN FNewCust 



JjJL>JI J^>v3 U*^ O* (^ es^' ^b 1 *^^ 1 f^!P -M^ ^^ ^ &>J 



TAo 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



j^ArfJI j Jli-rfl j v-*i*« »-*«■ g-b* 



6Ju>> ^"Ll jljJu>j *ii »J . (Blackboard) s^-JI ^L» l*iH-k ujjUall 

. J^l v l^JI ^ c Li^l ^u, L£ JL&UJI Jp jJjLJI 

r>L*Jf >Jl» v"?^ «iUJ*J < £*lirt<" J^*" O* *£* >S^xxJI f^i <Jt*«-" ^L> £»' ^ " i? 

JLilJI »j (Customer Number) J*—JI *i^J Jjlill ^j-^-" a^»*JI jl e**-"^' 
jLs.^1 Jp j-a>ll ojSj jup JU.^1 ^La. j* JLa^JI jxS (F10) c Eu J* 
(F10) c Lu. Jp ki.,^.11 *z. ^ . (Display/Say) Jl <vL^ (ACTION) 
frlLxj-l -UUJI dJj* ,y Jxa-iLj . (Blackboard) S^^^-JI Jl ^»-^li (JLH-' *>• 
. JJtoJI ^ Jp <J!jJI (9999) pljjMI ,11^. (Highlight) \j^\ Aj-*il 

^_« QjSsjg (NewCust.prg) 15 ~»j *M*JI <iLil ^i >jl»ol«JI «b^JI^ 

: tJLJI ^JLJI 

***************** NewCust.prg 

* Add new customers to the A/R system. 

* Called from AR main menu 

USE Customer INDEX CustNo, CustName 

* - - Store largest customer number to memory variable 

* - - Next_No. 
GO BOTT 
Next_No = Cust_No 

*----- print screen title. 
DO Title WITH "Add New Customers" 

*----- set up loop for adding customers. 

Exiting = .F. 

DO WHILE .NOT. Exiting 

*_____ Increment customer number by 1 

Next_No = Next_No + 1 

* - - - Suggest next number , but allow user to 

* - - - change it. 

@ 15,5 SAY "Enter customer number (0 to quit): " ; 
GET Next No PICT "9999" 



TAT 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



J^jusN j Jliotf j T,..^ Ut2N gJ* 



§ 17,5 SAY "Press Return to accept number " 
READ 

* - - - - If zero entered , return to main menu. 
IF Next_No = 

Exiting = .T. 
LOOP 
ENDIF 

* _ _ _ Check to see if number is already taken. 

* - - - If it is, loop and ask for another number. 
SEEK Next_No 

IF FOUND () 

? "Number already in use" , CHR(7) 

LOOP 
ENDIF 

* - -If next number isn't taken , add new record. 

* - -using FNewCust format screen. 
APPEND BLANK 

REPLACE Cust_No WITH Next_No 

REPLACE Term WITH "Net30" 

REPLACE Last_Updat WITH DATE() 

SET FORMAT To FNewCust 

READ 

SET FORMAT TO 

@ 4,0 CLEAR 
ENDDO (While not exiting) 
*----- End of program 
CLOSE DATABASES 
RETURN 

J_»«JI flj SaL) ^ (Next_No) ^jcX\ pljuiou.1 g-ob^JI lJm> Ji Jb*0l^ 

. (Customer. dbf ) 



TAV 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



JjjusM j Jli-aHI j ?--«l*« *-*W eHj* 



(Newchrg.prg) • fi^i^=JI SSl^s*. 4flL^ckl pj&L*^-* Y — Y* 

LaJI ^ (2) j^-3jJI >Ju>^*JI jLt»j Ljulp g-ob^JI Iju* J-*Aj i>^ 

. (AR.prg) g-lijJU wJ^JI 

obLJI sjlpU ^Jio Jl >J) JM =J\ <£j». obLj Sslil ^ £*b>JI lJuk »ju>^uj, 
yj ->JL ^li^JI Ijla Lb^Jj, . (Charges. dbf) pXUil o^JI K>j ^UJI 
JiL ,L-i | Lu^j Ali, (FNewChrg.fmt) j^JI oLLj JjX«J LaLa ^ Li^l 

USE Charges 

CREATE SCREEN FNewChrg 

^JLL-w Ia* L. ( Charges. dbf ) obLJI sjlpU l_AL J$l»- Ji" J**»J j^ 
pX-o^JI JLv J LA La ^-s ox* LTj ".' (Billed) ^JjlH, (Amount) L«£JI 

. (Display/Say) Jl (Action) jLxi.^1 Jj^j (F10) 

. ( t - r« ) J£aJL Zj^jII 5j_j-JIj ^j-aj LaLaJI ,-^.^t q* p L^II jo*, 

g-UsL SjIJ ^J ^j . (Charges. dbf ) o^JI *^— >_iL> J^Ju. (j-^ 
*£j JJH . -u L^UJI obLJI JjJuJ *L5l -oL>*j J**JI j^— >l LJ,** Jl »Ju*zJI 
."jU-^l LAlA ^Jl (M_Address) , (M_Name) S^IJJI oj^ii. UUI 
,u. «a3 «bj JjJud . J (MODIFY COMMAND) ^H JjJn&J »Ij JJi ^UiixJj 
~" ^ ' f : J^ Aiij UUI 

MODIFY COMMAND FNewchrg.fmt 

: ,>JlzJI j^JjJojuJI LbS *Sj »J 

@ 4,33 SAY "Name: 11 + M_Name 

§ 5,33 SAY "Address:" + M_Address 

l 3_ i J u , ^jJI LAUJI J£a J* fLj ULjuL! ^1 _i oLsIj^I I LL->L ^ 



taa 
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JjJl^JI j JU-aVI j J—J^ UlSJI eJ* 




99/99^99 



Customer Number : 9999 

Check Number : ■iiumiuimm Date 

Part Number -EEEEE Q*y :EEEEESB Unit Price :g 
Description : 



xxxxxxxkkxxxxxxxkxxxkxkxxj; 



II ill. TTWfWTW .l.l..J 1.J...I..L.1U I . WWWW! 11U.1.I.1..1 , 







Km^ll^iiwsiiKHffiiiiiiiiiiiiJiJ 



iiJiJiiJiil^^a^iiiiiii-iiiiiiQiiiiiiii! 



( r - r» ) J£a 



ja\JI\ <>\z£ <i£oJ JjA*iJI lift Jliol Juu <ALJI gJ*JI Jakiwo ^fiiu ^j 

. (Dot Prompt) SksJI l_yJ^ ^ *JlsJI 
M_name = "Mohamed" 
M_Address = "12 Hegaz street" 
USE Charges 
SET FORMAT TO FNewChrg 
APPEND 

(Format File) J^&AjJI ._iL> ^1 J* Jju lJub ^U JL&LiJI o>$J& lili 

pj^l JJ (M_Address) i (M_Name) SjSIjJI oL>*i£* P LLil »_3 ol Jk-Ol^ 

uij_«aJI %£_j-»- c-ftJLo J^S*- (>*«> 8d^»^-o tZuutJ ol^^Judl oJLft ,jV -ilJij jLxi.^1 

oJLft jli (NewChrg.prg) SlLb^ll g-b^ Ji*&tf *ld L.1 . (Charges. dbf) 
j*w ^JJI (GetCust.prg) oj^i»>JI g-G^j J)U. ^ L*}Lij| jUj ol^-Judl 

: iJVIZ HL=ti\ ^.li^j ^^kw $jU£ jfc^jj 



TA\ 
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J,.JusJI j Jli-i* j t— £jX UllN gJ* 



************ *NewChrg.prg. 

* Add individual charges to the Charges database file. 

* Called from AR main menu 

*----- Print the screen title 

DO Title WITH "Enter New Charges" 

*---.-- Open both Charges and Customer databases. 

SELECT 1 

USE Customer INDEX CustNo , CustName 

SELECT 2 

USE Charges INDEX ChrgNo 

*----- Set up loop for adding entries. 

Exiting = .F. 

DO WHILE .NOT. Exiting 

* - - Get customer name or number , and validate. 
SELECT 1 

DO GetCust WITH ; 

M_Cus t_No , M_Name , M_Addr es s , Ex i t ing 

* - - - Allow user to enter transaction data using 

* - - - FNewChrg screen. 
IF .NOT. Exiting 

SELECT 2 

APPEND BLANK 

REPLACE Cust_No WITH M_Cust_No 

REPLACE Date WITH DATE() 

REPLACE Billed WITH .F. 

SET FORMAT TO FNewChrg 

READ 

CLOSE FORMAT 

REPLACE Amount WITH Qty * UnitJPrice 
ENDIF 

@ 3,0 CLEAR 
ENDDO (While adding new transactions) 
*----- Return to main menu. 
CLOSE DATABASES 
RETURN 



YV 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



Jjj-sJI j JU-afl j «— -A* "I** eHj* 



: te* ^LJI ^Jn_ w JI fclil j^ (Amount) Ju*£JI Jl ^Lj^jJI SaUl ju,| \b\ 
Amount = 1,05 * Amount 

(NewPay.prg) .jIoluJI «c£>=>- 4iL^J p^L^-i £ — Y* 

^LSTj^*. oLLj SJUsI ^ £^Ij>-JI 1^-* ^Jui^-j} • (AR.prg) g-ob>JU ^.J^JI 

ilj «JI *£j—s*i ^UJI obLJI ixs\l lJ-L Jl (Payments) ob «JI 

. (Payments. dbf) 

: ^bdl (^j^-JI ob£ v 3j j J 9 ^ SiJkJI ^JLlj JU.^1 
USE Payments 
CREATE SCREEN FNewPay 

, I , -kJ *1i, . AJ&UJI 



*^ . 4_&liJI a^^j ^LoUJI li.ljLzi'ill >j\j3 ^ka SJLJI 6Ju>> ^ 



J.**.^! J_a>. 9 b£Lu»L L$l£ ( Payments. dbf ) alju«JI a^*- t-AJL J^JU- 
J-I»JI *_3j JOa. ^J-jj-s^J (F10) ^Lxi« Jjlj>jlJ j^jlj U£ . (Posted) 
J-jJlo ^1 q^ L*»vo c<-^J ^- (Display/ Say) JL. ^1 (Cust_No) 

• »tX9vuull Aja^uil&J 

j^-s_j JU^I U,Li Jl (M_Address) < (M_Name) t>;L) ..,,A."dl ^U>^ 
^(MODIFY COMMAND) ^1 >la*^u.L Ali, . *&LJI SJuJjl ^^ii JjlAiJ 

: JlxJI J^JI l>\k j^ 

MODIFY COMMAND FNewPay.FMT 

. l&l&JI Jwij p«bjj Jl ^^aJIxII j^j^LaJI JuLil iJLj *j 

@ 5,35 SAY "Name:" + M_Name 

@ 6,35 SAY "Address:" + M Address 



TM 
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J^jusII _, JUo* j l-JjJI Ulil eJjj 



( i - T ♦ ) JSli-IL ^>w^II Sj^aJL £wa ££.LJI ftMw«aJ ,>« * \^pSi\ JH*>j 




Customer Number : 9999 
Check Number : ■mummiM 
Amount : uuuuuua 

Description : 



Name : 
Address 



XXXXXXXKXXXXXXXXXXXXXltXXXX 



.in imrvrm 



^&&M&y^mri$ji\®v. i\i&!^^^M^W^MMM\^^mMi^\ 



j^«KiMfiii^S::Pifiiiii!ii:i!iii 






siiiiitiQ:!;;!;!!!!!;!;!!!;; 



( t - r* ) JSjs. 



L*S . (Payments) ^Ijl_u> &p» ^1 <sL»l ^ ^L£»L£JI 6Ju*> .Ijl^z^I ^^.jj 
^J- u ^ g ^ J-***JI /-La-jl *u* (adjustment) -L_«£> <^*- ^5! ^CiL^I £--£»j 
<^«SUI jujoj « JLiLJI obLj * J^> »z> 3JLJI ojla ijj . ju*ojll <x3Li>l o[>jj 

. (Di script) 

. (wfllll ^ 6-i>*-j ,>» «"^Lj 4 -°^-> j^ J^**" j* - "' o* £**^\ i<* (GetCust) 

Oj_ «aJI *-£j->- A-sLjsl g-oLj^J J-3L-J g~oL}j_JI ^Li Ja^g»Xj «J^_ui l_«_£j 

_y>H\ >Ia^x*l.L <£««j ^i^Sl^ iUJJ . Ijl»- UJS olitei-l £-0 (NewChrg.prg) 

Zj\s£> JJij . JuJl^JI s_iJLJI ^ _iUI ijiA "^^ii S*!^3j (MODIFY COMMAND) 

. JujJl*- q* <UjIi£ ,-fo ^Jij ^Uij . <lJ -u^J-kJI o"}LjJucdl *l>»-l >i (*KR) 

• p«bj^JI iJUb _j-*j)l 7 t "°Jp AaJlJI jil" ■■■ 'lj 



r\r 
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Jjjl-sJI j JS.SH j V-sL** UW e-Jj, 



************* NewPay.prg. 

* Add individual payments to the payments file. 

* Called from AR main menu 

* - -Open both Payments and Customer databases. 
SELECT 1 

USE Customer INDEX CustNo , CustName 

SELECT 2 

USE Payments INDEX PayNo 

*----- Set up loop for adding entries. 

Exiting = -F. 

DO WHILE .NOT. Exiting 

* - - Get customer name or number , and validate. 
SELECT 1 ; ; ,; 

DO GetCust WITH ; 

M_Cust_No , M_Name , M_Address , Exiting 

* - Allow user to enter transaction data using 

* - FNewPay screen. 
IF .NOT. Exiting 

SELECT 2 

APPEND BLANK 

REPLACE Cust_No WITH M_Cust_No 

REPLACE Date WITH DATE() 

REPLACE Discript WITH "Payment" 

REPLACE Posted WIHT .F. 

SET FORMAT TO FNewPay 

READ 

CLOSE FORMAT 
ENDIF 

@ 3,0 CLEAR 
ENDDO (While adding new transactions) 
*----- Return to main menu. 
CLOSE DATABASES 
RETURN 



rvr 
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Jja-sii j jiiaiii j u-A* *■** e* 1 -* 



(AREdit.prg) J^OjljJI ^Lk^ 



A - T 



g*b^ « (EdChrg.prg) ' ui^-lir *£>*. J-j-uj ^l^ < (EdCust.prg) 
ii^ o* e'M ^ 15 s f^*^ 1 f±s ' (EdPay.prg) alxJI *£>■ J-d^ 
^liiu Ljo* g-'b^JI iJJb JjA&3 ^ • (AREdit.prg) Jja*sJI <*3l3 ^b^ 
|jjb JjJu&a Jii*j '. (AR.prg) g-b^lJ wJjl SJlaJI &* (5) J^l *aj*s-JI 




1 . Edit Customer File 

2. Edit Current Charges 

3. Edit Current Payments 

4 . Return to Main Menu 



Enter choice (1 - 4 ) 



( o - Y. ) J£& 



^tf g.b^JI IJi* ^ j^Lj US" 



ru 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



j,,jl^)i j ju-oTii j *~-ijk uia ^ 



**#»#»»##*#*** * AREd.it . prg 

* Menu for editing the A/R System. 

* Called from AR main menu 
EChoice = 

DO WHILE EChoice # 4 
CLEAR 

DO Title WITH "Accounts Receivable Edit Menu" 
TEXT 

1. Edit Customer File 

2. Edit Current Charges 

3 . Edit Current Payments 

4 . Return to main menu 
ENDTEXT 

@ 24,3 SAY "Enter choice (1-4) " ; 

GET EChoice PICT "9" RANGE 1,4 
READ 

*_____ Branch accordingly. 
DO CASE 

CASE EChoice =1 

DO EdCust 
CASE EChoice = 2 

DO EdChrg 
CASE EChoice = 3 
DO EdPay 
ENDCASE 
ENDDO (EChoice #4) 
*___-- Return to main menu 
RETURN 



(Edcust.prg) Joa*JI L_iL» J^ojlI > -A - Y* 

2L&L& r *•■ ._* (FEdCust.scr) J-***JI »-Alo J-jJlO JL&L& 
^jy^JI ^1 j-*j Jl*»j o5bi-l ^-o (FNewCust.scr) p5U*JI JU-^I 
$*,!_& i_»JL rt«*s >^» ^UUj . (Edit Customers) Jl oj^ja yo»o 
: ^ll^^Uij (FEdCust.scr) JuJljJI .JtJLJI ^ jljjl 

"— "~ no 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



JjJ-lJI j Jlia* j V-sb" ^^ H* 



COPY FILE FNewCust.scr TO FEdCust.scr 

MODIFY SCREEN FEdCust 

J_jjt_«-3 »_Zjj (Blackboard) Sji^-^JI j^J&j 3JI — »JI oJu* ^ 
q[j oJI JI(Add New Customers) 



jXiJI jJiil . SJliJl>JI <-i.UJI t ^j> , >«3 *J < (Edit Customers) 

. ( t - T« ) 




Edit 
Customers 




Customer Number 
Customer Name : 
Address 



9999 



xsxxxxxsxssxxxxxx 



xxxxxxxxxxxxxxxxxxxxx 



Phone :ES3££a 




1 ,' l.i.l>l>l>l>l,l lllih.il 1, 1(1 ailI . ,. M Ivil 



BliliHii ll 

[ KlClntVS;I:i:;!i i i il»UWU»fcWJ 



!l'liiiiiilliiiiiiiiiiil'! ■ i. i".!i,.,iiiiiiiiiiiiniii, in' 



( T - T. ) Jli. 



*ju>jl«j ^bj (EdCust.prg) <s «~. -■ J~*JI ^> Jj**-* 3 e-^Lho 
L-L j ^^-J-mJI o* ^ >Jl J (Getcust.prg) ol^l g-b^ 

" : ^ c 1 ^ 1 -^ ^ r^ • ^ Ul r^" J^ 



r\"\ 
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JjJUsH j Jlialll j V-A* *■*"" plrt 



«#****#******#*** EdCust.prg 

* Edit Customers information 

* Called from A/R Edit menu 
*__-.. -print the screen title. 
DO Title WITH "Enter Customers File" 
USE Customer INDEX CustNo, CustName 
*----- set up loop for editing. 
Exiting = .F. 

SET DELETED OFF 

DO WHILE .NOT. Exiting 

*----- GET Customer by name or number 
DO Getcust WITH ; 

M_Cust_No , M_Name , M_Address , Exiting 
* - Edit using the FEdCust screen (if not exiting) 
IF .NOT. Exiting 
SEEK M_Cust_No 
SET FORMAT TO FEdCust 
EDIT 

SET FORMAT TO 
@ 4,0 CLEAR 
ENDIF 
ENDDO (While not exiting) 
*----- Return to main menu 
SET DELETED ON 
CLOSE DATABASES 
RETURN 



(EdChrg.prg) .— a^i-eJI *_a!L Jj»-**S Y-G-Y* 

.jLi^wJLI ~~*j ( Charges. dbf) ui^-JI UlL J-j^ g*^ 

U^ ^li. JtS>. JS" j*j* J (PgUp) . (PgDn) ^Ui* r lA4JU-l 
JL^LsJI r Ju>0LwJj . L^Ljl^ VJ ilJI I^hJI ^1 Jj-^j-U J-~*JI 
*_aLUI aJu> ,Urtj . o^JI tf> J^J^i yji (FEdChrg.scr) 
LjuuJI a^La J (FNewchrg.scr) d^JI UUo\ 5-AL& jjc— i ^Sj 
^ : JUI >-JI **ls£j jUAj (FEdchrg.scr) 



m 
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JjjusI j JLo* ^ V4> «•*« e^ 



COPY FILE FNewChrg.scr TO FEdChrg.scr 

: JUI >-JI ^ [St ^ 

MODIFY SCREEN FEdChrg 

U,LsJ\ Jiji* JjJlOj (Blackboard) Sj^^JI <j2>j-— * ^Sj ^s*- 
^^-j L&LftJI JJL-I oULj <3UI ^j L£* (Edit Charges) ^1 
^j-LtJLo .Ijl^u.1^ i^l tfj*. Jl JC^a- ^ JUztfl JLJLS" >■> *.7.,..ll 

. (PgDn) « (PgUp) 

o)L>wJI .>£>• *=***43j < »Jj-flJl «-«Lj <i»iy < (Customer. dbf) 
^^ Jj-»*JI *3 J**JI Ij^j ^l^JI J»»J1 J* (Record Pointer) 

MODIFY COMMAND FEdchrg.fmt 

. fiJLXI lout J txJktt ^rtjJL-JI *jfc£ pXj ^ 

§ 4,33 SAY "Name:" + TRIM(A-> Cust_Name) 
§ 5,33 SAY "Address:" + TRIM(A-> Address) 

iyj-jll (Record Pointer) o>L>«JI .>£>• ^J *£>£JI *sj ^j 

J3U- ^ JJij (Charges. dbf) vJ-^JIj (Cust.dbf) »>UjJI ^il. 
jj^JLwJI £r« jtU5 r^^u (EdChrg.prg) J^-JI t-Jlo J->Jurf g*bjj 

:*UUI 



t\a 
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Name : 
Customer Number : 9999 Address : 

Invoice Number : ■tlilthbttbl Date: laMlgliBblil 

Part Number :ESEES1 Q*y rEEEHsHII Unit Price :EEE£EEE 

Description 



XXXXXXXXXXXXXXXXXXXXXXXXXX 



...1.1.1. .11. J...IU1.1 



SUtftfttt ; fcaoveuiiefi?!: 



sa«eiliiiii1isiiij;i:ibii! 



feyi; $p; ii ;)$«*»;£&#?; « \'^^^^^m^ 



iW?i 



iiiiiilMi^i^iiiiiiiiiiiiiiQii!!!! 



fcttys 



( v - y. ) J£& 



*----- open both Charges and Customer databases. 

SELECT 1 

USE Customer INDEX CustNo, CustName 

SELECT 2 

USE Charges INDEX ChrgNo 

*----- set up relationship 

SET RELATION TO Cust_No INTO Customer 

J^l, ^UJI J*«JI jJB j. Ua JUy JM&31I J~u J^JI \JJtj 
JLp L^^p *jlj ^sJI tfj-aJI o^ jAJI Jj—J J~*JI ^Jj J* *b* 
^Uil 2LAULII J* Lij^*. oI^lpj J~*JI j^.1 JJij JUL . JLAUUI 



: ^tf 6^^ fclx* fX* ^lij^b 



m 
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*****•»•******* EdChrg.prg 

* Edit invalid charges in the charges file. 

* Called from A/R Edit menu 

* - -Print the screen title. 

DO Title WITH "Edit Current Charges" 

*----- Open both Customer and charges databases. 

SELECT 1 

USE Customer INDEX CustNo, CustName 

SELECT 2 

USE Charges INDEX ChrgNo 

*----- Set up relationship 

SET RELATION TO Cust_No INTO Customer 

* - - - set up memory variables and loop for editing 
SET DELETED OFF 

Exiting = .F. 
DO WHILE .NOT. Exiting 

*_____ Ge t customer by name or number . 
SELECT 1 

DO GetCust WITH M_Cust_No, M_Name, M_Address, Exiting 
* - Edit the transaction, if valid and not exiting 
IF .NOT. Exiting 
SELECT 2 
SEEK M_Cust_No 
IF FOUND .AND. Billed 

SET FORMAT TO FEdChrg 
EDIT 

CLOSE FORMAT 
ELSE 

DO Error WITH "Already posted, Make adjustment" 
ENDIF 
ENDIF (not exiting) 
§ 4,0 CLEAR 
ENDDO (While not exiting) 
*----- Recalculate amount field. 
SELECT 2 

REPLACE ALL Amount WITH Qty * Unit_Price 
SET DELETED ON 
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CLOSE DATABASES 

*_-__- Return to main menu. 

RETURN 

IF FOUND () .AND. .NOT. Billed 

lil U . IS ^J\ Udll Jl <L->I J-4 t>> — " J^J^ £*•* M ^S~ 
-u>.j_3 (Error Message) Lki. JUL^ ^g Kai "JL^p jO oJ ^LS" 

: Jbdl >Jj|'fcU,l Jja»xJI U^ pl^al ji*4 J&*>L US' * o,-JI 

REPLACE ALL Amound WITH Qty * Unit_Price 

<Jliol »sj U>»*» ^ jl ^ju-^ 1 V^ 1 cs* <-k^ ^ O 1 O 1 -^ rjJb J 

1 . jl^JI Tj*l USJI ^b-^ 1 *** J ^^ 

i 

(EdPay.prg) altimll » olw Jf*^^» T - A - Y* 

oLDLst'SlI o^w £* ^>^ -b-^ 1 ^ J**^ J* 1 ** C^ 1 1^* 
*5j, « JjA*xJI ^ (FEdPay.scr) 3L4.UJI ^Ju^i^ jAj < a-Lum,.JI 
" : ^IS" JJij (FNewPay.scr) l&LJI £-«<^-j LsjLLil 

COPY FILE FNewPay.scr TO FEdPay.scr 

J| !yoJI Jjy>J ^ (MODIFY SCREEN) ^Ji\ JaAX-I pSj ^ 
_*L=Ju Jjl4£~L ^UJI obL&^l ULz,\j (Edit Payments) 
•' ^>1 Jl *£> ^ Jtaflll ^ (PgDn) , (PgUp) 

_J (MODIFY COMMAND FEdpay.fmt) jJi\ fl.i&&J j^j US' 
^^J^JI ^U£ jj> ^ JJij . l&UJI ^ oI^pj J«Jf j^.1 JLi-^l 

: (FEdpay.fmt) SALJI ^L ^ oss^ 1 

@ 5,35 SAY "Name : " + TRIM (A -> Cust_Name) 
@ 6,35 SAY "Address:" + TRIM (A -> Address) 

— 
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JjJUSjl _, JU-alll _, *-~?J UUJI g-lji 



JU-^I <ALa s^^ j*^. ( a - t* ) J&d\j 




Customer Number : 9999 
Check Number : L'lifebbbL'l 
Amount 
Description : 



9999999.99 



Name : 
Address : 



XXXXXXXXXXXXXXXXXXXXXXXXXX 



.1, .. J. ...i.l.. ,11.1111.111. mi .. 11 



C^iijftjJM3;*#&^;&&^ 



S^^tij^djii^siiBjifiljijilii::; 



::::iliW^iJWW::::i:S::i:!iiO: 



sawe;i::::nEtta::;BK;;;i?:;w?; 



( a - r. ) J£& 



************** *EdPay.prcj 

* Edit: invalid payments in the payments file. 

* Called from AR Edit menu 
*----- print the screen title. 
DO Title WITH "Edit Current Payments" 

* - - - Open both Customer and payments databases. 
SELECT 1 

USE Customer INDEX CustNo, CustName 

SELECT 2 

USE Payments INDEX PayNo 



*_____ get up relationship 

SET RELATION TO Cust No INTO Customer 



r»r 
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*_____ set up loop for editing entries 

SET DELETED OFF 

Exiting = .F. 

DO WHILE .NOT. Exiting 

*----- Get Customer by name or number 

SELECT 1 

DO GetCust WITH ; 

M_Cust_No, M_Name, M_Address ; Exiting 
* - - If not exiting , and transaction not already 
*----- posted , proceed with edit. 
IF .NOT. Exiting 
SELECT 2 
SEEK M_Cust_No 

IF FOUND () .AND. .NOT. Posted 
SET FORMAT TO FEdPay 
EDIT 

CLOSE FORMAT 
ELSE 

DO Error WITH ; 

"Already posted, Make adjustment:" 
ENDIF 
ENDIF (not exiting) 
@ 4,0 CLEAR 
ENDDO (while not exiting) 
*_---- close databases and return to edit menu 

SET DELETED ON 
CLOSE DATABASES 
RETURN 



T«T 
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Akall LdUL^ g^Lijj jjjUa 
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*3LaJI «aljl-i— g*b»j jij& 



. (Reports) ^jjLSxJI ^ Ju^**^ <Jp (A/R) ?^LJI oIjL**. g*lj^j ju2«j 

■■•■-■ djJfl J- 



Zs^zidl j-jjLaiJIj Lj^Llf j-jjLasJIj (Invoices) 

jjjj ^1 (Aging reports) ^u>JI j-jjUxl^ (Summary reports) 



^^UixJI jLjl^ . J«JJ ^u^JI JuJukll (KjjuLij obLJU fcLSoJI 



»-[j oljljill iUjI J* aJLpL-j ^dl "(Historical Reports) Juijjbdl 

JjJLiJ 2Lpj_«lj JsLiX*.^! j[^j, LojLi* La^ai-j 7J»L«JI $J^ ,y ^JlSiTI JjLwjJI &* 



^x**o LS g-«!^-JI (j*-*-* ^i (Parameters) o5L>L*i[j (Procedures) 

(ARPrint.prg) 4aj_u^^ll ^i^lSIll <Loll£ gjaLl^ > - T^ 

P >L«JI oLL**. g-oLijJ V**5>ll S-JUJI j^-o (4) aJ^JI »jl>ji>JI jL^j Ljulp 

. ( "\ - r \ > J5LiJL fc^Jl .jl.jJL^I Jt^Ls. JJj^j (A/R) 




1- Print monthly statements 

2- Print monthly summary 

3- Print aging reports 

A- Do quick looking of customer status 

5- Review history 

6- Return to main menu 

Enter choice (1-6) 



( \ - v\ ) J£a. 



T»V 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



»3LaJI oljU~>- gJijf j^jlSl 



u^^jij . (Invoices) ^l>All <pLL jjjj L.jo* .,i,v ai| ) J/&\ jLz*^ 
^*3J>ill SpLL Juo j^^JI ^ 5Jl»-[j S^o Uul L.Ji*i«j (3 , 2) ^IjLii.^llj 



l_A 



aJiiJil (ARPrint.prg) ^UzlJ w-j^l JujUJI ^jju ^UJI ^-oLjj-JI^ 



************** *ARPrint.prg 

* Menu of Print options for the A/R system. 

* Called from A/R main menu 

PChoice = 

SET DELETED ON 

DO WHILE PChoice # 6 

CLEAR 

DO Title WITH "A/R Print Menu" 

TEXT 

1. Print monthly statements 

2 . Print monthly Summary 

3 . Print aging reports 

4. Do quick looking of customer status 

5. Review history 

6. Return to main menu 
ENDTEXT 

@ 24,1 SAY "Enter choice (1 - 6)" ; 

GET Pchoice PICT "9" RANGE 1,6 
READ 



Branch accordingly. 



Y.A 
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DO CASE 

CASE PChoice = 1 

DO Bills 
CASE PChoice = 2 

RepForm = "ARSumm" 
DO AgeSumm 
CASE PChoice - 3 

RepForm = "Aging" 
DO AgeSumm 
CASE PChoice = 4 

DO ARStat 
CASE PChoice = 5 
DO ARHist 
ENDCASE 
ENDDO(PChoce # 6) 
*----- Return to main menu 
SET DELETED OFF 

RETURN 



0> J£> XJlXJ J I jLji^J (3) jLii-'ill^ (2) jlp^il jl £<>b>JI 11a ^o -k*>Lj 
j^_w«. US' $JL- J£ ^ Ukiwo 1^,^*3 l5 k«j ^ti^JI q£j (AgeSumm) g-b^JI 

(BillProc.prg) ^IjL&aJI »_iL» T - Y> 

^-aJtI^-oJI »_*Lijj ojjj-j jjjLsdl a^sjLSj j-oLiJI ,jjL»JI p_*b^JI .><> Ja^.>L) 

Ul >JI jljJu>j ^bjjJ ' ( 1 ) j 1 ***^ u^L^JI (Bills. prg) o, " g .?, II 

^jLUI oLi ^i Lju>JLaj La, « (4) jLx^Ij ^UJI (ARStat. prg) 
jjIa ^ J^ »jJj o^Li^j g-obj_JI J-JLAj ^U^-wu SiL>Jj . (Invoices) 
.(BillProc.prg) -cu^-j ^ w_AJJI lJufcj . ol^ki- Uth J.jlA."u ^javoli^JI 
j_^>.T ^b^j Jl SiL^L (PrintBills.prg) ol^JaiJI ^li^ Jp (^>^j _>*> 



_Q^«uJ 



q* _^ jj Tn ... II 3Jlp ijj lili ^JauJI *3j jLli-L »j3j> jAj (RowCheck) {S 
LJS" g-I^JI aJm> 2ulz£ ^^ l£ jij . £jWI *»j£jl Jl J^l j^J SL^JL-sJI JjJ* 
Jju&tzJ v 4 ^^ '-t^ -^ o^Ij ftjLiil JjL-JI (Proclibl) ol^kiJI *_aJU ^ 
ci^-Jj . (DBase III+) ^ p.x»«i«il oUKII ~JLw ^ ^i-T oUlS" ^JL* 

s P US' ^ _-^i okLsJT oUL iji*a D U JJ1I, . ^Ui juo «l3>UI »j s».UJI cJj 

. g-li^JI 



T.\ 
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: SJUI jjL^JI q* o^i (BillProc.prg) .-iUlj 

**************** *BillProc.prg 

* Print a bill, using procedures PrintBills and 

* Rowcheck Called from Bills. prg and ARstat.prg 
PROCEDURE PrintBills 

PARAMETERS M_Cust_No , Printer, Status 

* - - - IF printer , print address, date in English 
CLEAR 

Page = 1 
IE Printer 

EngDate - CMONTH (DATE()) + STR(DAY(DATE()) , 3) + ; 
"," + STR(YEAR(DATE()) , 4) 

@ 1,0 SAY "My company , inc." 

e 1,60 SAY EngDate 

ROW = 6 
ELSE 

ROW = 1 
ENDIF 

* - - - -print Customer name and address Using 

* - - - -Row variable to control display and eject. 
SELECT 1 

IF Cus_Name # " " 

@ Row,0 SAY Cus_Name 
ENDIF 

§ Row+1,0 SAY Address 
Row = Row + 4 

* - - -Print customer number , terms and statrting 

* - - -balance from the customer file . 

@ Row,0 SAY "Customer No, : " + STR(Cust_No, 4) 

@ Row+1,0 SAY "Terms : " + Terms 

§ Row+2,0 SAY "Balance of " + DTOC(LAST_UPDAT) + " : " 

§ Row+2,25 SAY Start_Bal PICT "999,999.99" 

§ Row+3,0 SAY Uline 

Start = Start_Bal 

Row = Row + 5 

*----- Print heading for charges . 

§ Row,0 SAY "Inv. # Part Description QTY" 

@ Row, 43 SAY "Price Total Date " 
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ROW = ROW + 2 

* - - Select charges database :list and total current 

* - - charges. 
SELECT 2 

SEEK M_Cust_No 
Tot_Charge = 

DO WHILE Cust_No = M_Cust_No .AND. .NOT. EOF() 
IF Status .OR. .NOT. Billed 

§ ROW,0 SAY InvoiceJNo 

@ ROW, 7 SAY Part_No 

@ ROW, 13 SAY Descript 

@ ROW, 34 SAY Qty 

@ ROW, 39 SAY Unit_Pric PICT "999,999.99" 

@ ROW, 50 SAY Amount PICT "999,999.99" 

@ ROW, 62 SAY Date 

Tot_Charge = Tot_Charge + Amount 

ROW = ROW + 1 

* _ _ _ _ Make as billed if not a status check 

IF .NOT. STATUS 

REPLACE Billed WITH .T. 

ENDIF 
ENDIF (not status report and not already billed) 
SKIP 
ENDDO (Cust_No - M_Cust_No) 
*_____ Print payments heading . 
@ ROW+1,0 SAY Uline 

@ ROW+2,1 SAY "Payments / Adjustments" 
ROW = ROW +■ 4 

* - - - Check row position if displayed on screen. 
DO RowCheck WITH 20,64 

* - - - Select Payments file : list and total 

* - - - payments/ adjustments. 
SELECT 3 

SEEK M_Cust_No 
Tot_Pay = 

DO WHILE Cust_No = M_Cust_No .AND. .NOT. EOF() 
IF Status .OR. .NOT. Posted 

@ Row,0 SAY "Check #" 

@ Row, 9 SAY Check_No 

@ Row, 16 SAY Descript 

@ ROW, 50 SAY Amount PICT "999,999.99" 

@ Row, 62 SAY Date 

Tot_Pay = Tot_Pay + Amount 

: ^\ 
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ROW = ROW + 1 

* - - Check row position if displayed on screen 
DO RowCheck WITH 20,64 

* - - - Mark as billed if not status report 
IF .NOT. Status 

REPLACE Posted WITH .T. 
ENDIF 
ENDIF(not status report and not already posted) 
SKIP 
ENDDO (while Cust_No = M_Cust_No) 

* - - - Check row position if displayed on screen. 
@ Row,0 SAY Uline 

DO RowCheck WITH 17,56 

* - - Print starting balance , total charges, payments, 

* - - ending balance , and thank you note. 
SET FIXED ON 

@ Row+1,5 SAY "Previous balance : " 

@ Row+1,25 SAY START PICT "999 , 999 . 99" 

@ Row+2,5 SAY "Total charges :" 

@ Row+2,25 SAY Tot_Charge PICT "999, 999. 99" 

@ Row+3,5 SAY "Payments received" 

@ Row+3,25 SAY Tot_Pay PICT "999, 999. 99" 

@ Row+4,5 SAY "Balance due :" 

@ Row+4,25 SAY (Start + Tot_Charge) - Tot_Pay ; 

PICT "999,999.99" 
SET FIXED OFF 
IF Printer .AND. Status 

@ Row+8,10 SAY * * * Duplicate Invoice * * * 
ENDIF 
IF Pritner .AND. .NOT. Status 

@ Row+8,5 SAY "Thank you" 
ENDIF 

*----- Pause if not going to the printer. 
IF .NOT. Printer 

@ 22,0 CLEAR 

WAIT 
ENDIF 

*----- Done printing bill, Return to menu. 
RETURN 



W 
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* - - - Procedure for checking row positions on screen 

* - - - or printer 
PROCEDURE RowCheck 
PARAMETERS ScreenMax, PrintMax 

IF .NOT. Printer .AND. Row >= ScreenMax 

@ 23,0 CLEAR 

WAIT "Press any key for next page" 

Row = 1 

CLEAR 
ENDIF(Row too big for screen) 
IF Printer .AND. Row >= PrintMax 

@ Row+2,70 SAY "Page" + STR(Page, 1) 

Page = Page + 1 

EJECT 

ROW = 5 
ENDIF (Row too big for printer) 

RETURN 



*JL»JI ^-jjULi 2UULI (Status) 3>lJdl ^cu Jju>olJ g-bjJI ^ J^Mj, 
(.T.) UJUI Jli.al ft I5U . sj^JI s^lill J* J}-> j^ f ^ (Status) 
j-jjJLi ou -Jj Jj» ?JU _j-jj-S3 vjJLUI i ^ II* U (Status) ^jiall Jl 
Sjj-fr-i SjytU .-^JixJI o^ lil ^ • J**^ oj j ^LH^I <*LJ» *a .iLlJJj".,^^ 
[Si ^ (False) Jl J**^ll Jii* Jjy»j « -a*LL *zi (Not Status) 
oLL~* g-b^J Lj S>)\ ^JLSJI ^ (6)' jLxiJSII JjuULl jlJi juo <L»._p 

'. pSlji 

U— [^ 63Lp^jl«I jxXj oj^ki. od, fl jjo L jjLJI mill D ! JLJI jJl^ 
.(ARStat.prg) SJUJI jlijl»j g.li^ (Bills. prg) Sj-^iJI ^UxJI ^b^j 

. SJbdl p[>*.^I ^ Us*.^. »!;«*. ^Uwob^JI jllftj 

(Bills. prg) Ju^^l ^ull^l g*bja Y - Y> 

^Li g^b* 2U3I3 J ( 1 ) .J, jLx^l JU^| oiP ^b^JI II* r JJ^u 

u-JJ i^j Sl^I ^!yJI **M=4 r _yL ^bjjl ll»j . P £j| oUL— ^Ijlj 

^j_-jdl Jju tf ,1^ J^dl Jju ^ (.p.) uUI JU.oL rJ Jb cx-J^JI 

(Posted) .ajx^zJI Jju. J , (Charges. dbf) J^lil ud- ^J (Billed) 

JJi j^} j»j3ol«UJ i5 u u Jj ^ dUij, . ( Payments. dbf ) JjuJI uiL ^ 

W 



y.i.i'. i.. '.rudi.^.Li.iu ai.u i. i..ij i i.i i .i .iii .■j.j i. Mi: 



pX»JI c»uUa mQjj jjjUj 



^^^aJI J^-^xII g-b^ jjji* ^ ^j-^l ejill Jl ^Ljjj — aJI j — * J-j^j-J 
gu»LijJ ^-^jJI UjUJI qj> ( t ) jkJ, jLii-^IL (Monthly Posting) 

. *>LJI oU 



: <LJbJI _jjl~-- II j>o ptob^JI |ju» q^xxjj 



***#*#*#**## 



* * * * *Bills.prg 



* Prints monthly statemetns. 

* Called from AR Print menu. 

*----- Have user prepare printer (or cancel) . 

Proceed = " " 

DO Title WITH "Print Monthly Bills " 

@ 15,5 SAY "Repare printer and press a key to proceed" 

@ 17,5 SAY "(Type X to cancel)" GET Proceed PICT "I" 

READ 

*----- Return to menu if requested. 

IF Proceed = "X" 

RETURN 
ENDIF 

* - - - Open files and delete records with "0" Amount. 
SELECT 1 

USE Customer INDEX CustNo 

SELECT 2 

USE Charges INDEX ChargNo 

DELETE ALL FOR Amount = 

SELECT 3 

USE Payments INDEX PayNo 

DELETE ALL FOR Amount = , 

* - - - Set decimal place to 2 , send @ ... SAY to 

* - - - printer and open bill_printing procedure file. 
CLEAR 

SET DECIMALS TO 2 

SET DEVICE TO PRINT 

SET PROCEDURE TO BillProc 

* - Set parameters to printer and "not status" report. 



m 
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Printer = .T. 
Status = .F. 

* - - - Loop through Customer database and print a 

* - - -. bill for every one 
SELECT 1 

DO WHILE .NOT. EOF() 
Lookup = CUSt_No 

DO PrintBills WITH Lookup , printer , status 
EJECT 

*----- Set next customer 
SELECT 1 
SKIP 
ENDDO 

*___-- Done , Close files 

SET DEVICE TO SCREEN 

CLOSE DATABASES 

CLOSE PROCEDURE 

*_..___ open ProcLibl procedure file 

SET PROCEDURE TO ProcLibl 

*-._._ Print reminder about posting , then return to 

* - - - main menu . 
CLEAR 

TEXT 

monthly postings (main menu option 5) should be 
performed immediately after printing the monthly 
statements . 

ENDTEXT 

•p 

• 

@ 22,10 SAY "Press any key to return to main menu..." 
WAIT " " 

RETURN TO Master 

**UJ (BillProc.prg) ^I^L^JI ,_aJL, Jjl&lJ g-b^JI Ijm. ^ A*-^ 
^ JJ (ProcLibl) >3I ol^UJI Jl ^ .kiol; Li" . :u*£j| ^UxJI 

^-b^J V-ib-' 1 **5Llil J' trrJ} (RETURN TO MASTER) Jh\ JjlA 
is 1 ( 6 ) H J -J 1 ^^" fl-*^*"! j»d*X«JJ {S i^^i ^ S^&L^ p^UJI oLjI 



.. TK . m ii I 



Tlo 



y.i.i'. i.. '.rudi.^.Li.iu ai.u i. i..ij i i.i i .i .iii .■j.j i. Mi: 



*3L*m oIjLm** £*l*jj Jjj^ 



(ARStat.prg) <!LaJI ^LlaJ g^Ll^jk L ' - Y\ 

JULis »-»li^ ^13 ,J ( i ) jkSj jUxa^l JUol jo* g-li^JI lift pJu^x-j 

A^j>- ^ J-maII "ULa- jLli-L »>X-->iX..,m.JI mwJ jjfcj < *}LjJI oL^L-j- j-JjLS3 

5j>-« ,-U J^*a>JI 4J «mj ybj c IajujluuJ >Jk* jl (Billed) ^l>ill a-jJi-^ 

* LUpI g-b^JI I ju* ^ jL>.Mj, . U jljJl-jJ J^*JI Jl JUL^I s^lill j-. ^g^j-S-1 
(PrintBills) ol^k^JI ^oIj^j sJ^j ,^2* (True) <o-*ll( Status) >**.UI 
^bj_JI llftj . =1*2^1 s^jjUJI ^Jj, .LiU aJLJI jLjljJ j_ft ^jJUkll 1 

: SJlxJI j^L+Jl y* q.j^Xjj (ARStat.prg) ^ ,» 

* * * *********** *ARStat.prg 

* Quick lookup of a single statement. 

* Called from A/R Print menu. 

* - - Open files and delete records with "0" amounts. 
SELECT 1 

USE Customer INDEX CustNo 

SELECT 2 

USE Charges INDEX ChrgNo 

DELETE ALL FOR Amount = 

SELECT 3 

USE Payments INDEX PayNo 

DELETE ALL FOR Amount = 

* - - - Set up memory variables for status report. 
Status = ,T. 

Printer = .F. 
M_Cust_No = 
M_Name = " " 
Exiting = .F. 
DO WHILE .NOT. Exiting 

*_____ print screen title 

DO Title WITH "Quick lookup of current status" 

*_____ G e t customer by number or name 

SELECT 1 

DO GetCust WITH ; 

M_Cust_No , M_Name, M_Address, Exiting 
*----- Proceed with bill. 
IF .NOT. Exiting 

*----- Ask about printer . 
@ 5,0 CLEAR 
LP - » " 



m 
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C 3UJI olil~» wbn ja»Ui 



@ 15,5 SAY "Send statement to printer ? Y/N ; 

GET LP PICT "1" 
READ 
CLEAR 

*----- Set up printer if necessary 
IF LP = "Y" 

Printer = .T. 
SET DEVICE TO PRINT 
ENDIF 

* - - -Print current statement for customer. 
SET PROCEDURE TO BillProc 

DO PrintBill WITH M_Cust_No , Printer, STATUS 
CLOSE PROCEDURE 
SET PROCEDURE TO ProcLibl 
*----- turn off printer 
IF Printer 
EJECT 

SET DEVICE TO SCREEN 
ENDIF 
ENDIF (not exiting) 

* - - - Close files and return to main menu 
CLOSE DATABASES 

RETURN 
(AgeSumm.prg) ^uLa^ll^ S^x-eJLkll ^j^lSlJI ^11^ A - Y\ 

,jLa*uj p >LJI obL**. ^Hjto <*LL g-li^j -UjIj ^ (3) t (2) q\jL^H 

^jj^^JI ^j\j*)\ ^pLL Juu SjU U^ULil jfcjj ^jjjUiJI oIaj . (Aging Reports) 

» * i 

S-JUJI 2Lij!>II oijja (Summary Reports) s^aXsJI ib^t-ll j-jjLSiH, 

Bj^-oJLj _>J>a3 jo>P *-ZJ »^-**- • <J ^LiJI oljU«J[j u3j_«aJI lJL3j-oj J-^qjJJ 

. ( r - n ) J£aJL l*^-J\ 

AJi>j (CREATE REPORT) ^_i^l Jjl^UuL _>jj-SxJI hj-*> e 1 -^' f^ 

USE Customer 

CREATE REPORT ARSumm 



TIV 
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Monthly Actiwrftv Summary 




( r - n ) Jla. 

l&bU- ^ j^ ^1 (Assistant) jl*LJI g-ob^ ^[^3 ^Jsj *)LJI ai* ^j 
. ( T - x\ ) Ji-Ulj ~iy> jA Ui" jtUSj . (Columns) sj^^II oI^m JyJ^ 
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^ J-*-* J^i <—»L>JI ^\j±\ t^jo j»Ju>i»JLI ^-^Xs <*x*yl\ ^JjLSxJI LI 
2L»*-2>}_<JI Sjj—JLj _>jjJixJI qj^j >£**»■ • J-wu<JI I.XA i_iS^o 2L3jji ^Liliiv, oljis 

. ( i - n ) J&Ub 
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Accounts Receivable Aeine Report 




< i - n > J£a 

: ^15" (CREATE REPORT) ^1 pljiioJ pXj ^fcJI lJub *l£j^ 

USE Customer 
CREATE REPORT Aging 

t * i>U - 0- (^ ^ (Assistant) ji*LJI ^b^ pjjp ^^kr SJLJI 6 jm> ^j 
. ( o - n ) J&lIIj £*>_y> y> U JJjj (Columns) sji^I oLy^ juj^ 

jJt, ^Iaaju.1 jv^ (Group) jl&X\ -Ji*^ -u-l £-. J«JI ,j, ^^ 
(Customer Number) JUj-^l ^J^ oliS^ <JU ^u/^^lxiJ X** J^JI 



r»\ 



y.i.i'. i.. '.r ' Adi.^.Li.iuai.^i.Li.'ii.ii .i .iiM.r 'i.'. in. i.th 



»3i«*JI •spI^Lma' jyAiji ^jUbr 
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■i-aji^ig^^^^ 



lin 



m&m 

mm* 

MM 

mm 



mm 

m$ 

mm 
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( o - n ) J£& 



■*>" ^-jjLsxJ[j( Summary Reports) Sj-^aXiJI ^jjUxJI l^LA> ^jl^ 
^j^LJI Jju>ulJ « (AgeSum.prg) £*li>JI pl.x££-»lj (Aging Reports) 

. (ARPrint.prg) SpUJI 



CASE PChoice = 2 

RepForm = '•ARSumm" 

DO AgeSumm 
CASE PChoice = 3 

RepForm - "Aging" 

DO AgeSumm 



^^JLSrf ^ (ARSumm) U^ ctiJ^ 3 & ( 2 ) H-J^ f tjL - '^^ l ^>'-i xi -l "^ 
^ (Aging) ZJ£ l ^j>>a fJ-» (3) {3JJ e^LsiJl jo*> . (RepForm) s^lJJI 
<-*LJs j»_i_i j^^-jJLJI ^s (AgeSum) ^»b>JI jujja jllpj . _ > **xll lJu* jj^Jj 



TT- 
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**#*♦****♦♦****** AgeSumm.prg 

* Print aged balances or summary reports. 

* Called from A/R Print menu. 
@ 5,0 CLEAR 

*_____ j^sj^ about printer 

STORE " » TO LP, Mac 

@ 15,5 SAY "Send report to printer ? (Y/N) " ; 

GET LP PICT "!" 
READ 

*----- Set up the printer if necessary. 
IF LP = "Y" 

Mac = "TO PRINT" 

WAIT "Prepare printer, then press any key to print" 
ENDIF 

* - - - - use Customer database and report stored in 

* - - - - RepForm 
CLEAR 

USE Customer INDEX CustNo 
REPORT FORM & RepForm & Mac 

* _ _ _ _ pause , if necessary , then return to menu 
IF LP # "Y" 

WAIT "Press any key to return to AR Print menu. 
ELSE 

EJECT 
INDIF 

RETURN 

't'- "-^ (RepForm) .^^idl l£T (AgeSumm) Lu^ J (ARSumm) ^.-.v-y. 
IX. (TO PRINT) ^J^>JI *JULJL ^^oll "^ U . fJ ^uai ;L^\ 

REPORT FORM ARSumm TO PRINT 
JUL, . iuLkJI S-oJL3 ^ (2) fJ, jLxiOU pj^oLwil jUi.1 *Jl* ^ .sUi, 

rn 
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. i_)jllaj.l _jjy£L}\ <CpL1» a£j 

(ARHist.prg) 4a^*^Ii1I ^j^Udl 1 - Y> 

Li, . ^5U*jr^bL^. JljjLaa ^LL g-li-rJ WsM ^t^ 1 0-* ( 5 )"f4j j 1 *^' 

. ( "\ - r \ )' J£iJL JU-^I <JlsJI ^kj XJLjf a jjb 



mmm 






: ts^&!^^ 



( n - Yt ) J££ 






ch!*- ci- ai^ ^l^ 1 o 1 j^ 1 i^.o- -^ ■ . ( . v " n } ^r 11 * *^ 






r 



■ ' *•** 



IJUDi 



_ __ J-**» O-^J tS^ 1 — * 

' Ij^l-L^JI ^-^1 O^ 1 ^ e- ^ ' ( CREATE * EP0RT > ^ 

USE ChrgHist 

CREATE REPORT CusHistl 



TTT 
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tjLmmS •sAJL**. p~kj) jjjlli 



JLjLsS" J-3 ajLlsl &** ,^111 (ChrgHist.dbf ) c-nlll »Iju>jlJ L* -k»-Mj^ 

q-p j^i_| ^1 (Assistant) jlpLJI ^-b^ p-Jl>3 j^Ji3 SJUJI <>Jl» ^ 
jujJl!>j ^ US' . (Customer History) ^.jj-HxJI ,jl>ip jljJl»j USj^JL 

(Check_No) « (Part_No) « (Qty) i (Descript) < (Unit_Price) < 
(Amount) « (Date) . 

. ( V - T\ ) J£iJI q* ^sltj _>A IS SJu*Ml j^JjUp JljJu»J *2j U^ 
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1333 
1TS0 



Payment 
Payment 



100.00 
200.00 



02J0GJ90 
02130190 



( v - x\ ) J1& 



. J-rj**JI IJ^J t/ ^' JuJlvJJI >_Jjj*j (31^ _^i ^j^5*JI ^ ^JjivJI pJH?*" ^ 
j ■j 1 " - 'I <jb^j ojLijI fjii ,jJJI (CusHist2.frm) i-Iill ^LLwI^j 4j^£s jvXjj 
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USE PayHist 

CREATE REPORT CusHist2 

U^*- O^ ("^ C^W^.O** 1 * US' JlpLJI g-oli^ jO)j5 ^la3 <JLJI ftJUh ^ 

: i^l^ SJU*Ml o[j£>ve Jl»Jl>J 

(Cust_No) « (Check_No) « (Descript) < (Amount) « (Date) 

. ( V - u ) JSJJI qa £^>\j _>* US' sju*!i!I 6 jla ^jjUp Ju jl>j »2j US' 
l5 i* d IJU6 pU JLiojUl ^ladl *jl3 ^(2) fjj jU±.1\ r j^z-ai jlstl li^ 

. ( A - n ) JSJJL £^11 ^,,^1 J^kj *JUJI o ju» j>j . (Part_no) 




xxxaxxxxxxxSra: 
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Product Code History 



Scxxxxkkmxkxxxxx! 
aHant iu n u n cJ ( K» x«y. ., 




Part 

No 



Description 



Qty 



Unit 
Price 



Total 



Date 



AAA 
AAA 
AAA 



Printer 
Printer 
Printer 



2 
3 

5 



900 
900 
900 



1800 
2700 
4500 



02/05/90 
02/10/90 
02/20/90 
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LttitiXQX...... 
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( A - T\ ) Jli. 



^bdl ^^k-JI ^ ^L &. Jjd\ IJ* ,LJLil ^ 



m 
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»3l**JI c*tjL^*. gab>j ^jllr 



USE BillHist 

CREATE REPORT CodeHist 

<tb£ *Ij (Assistant) jl*LJI £»b^*j ^>UJI o^L^I *3L3 ^^ii. jl^pj 

: ^IS* (Heading) ^jjJill Li* 

(Product Code History) 

: ^NK (Columns) sjl^I oLji*^ jujl>j ^ US 

(Part_No), (Descript), (Qty)« (Unit_Price)< (Amount)* (Date) 

. 43JMB JjUuo ASfjtuoj du£ jji i_J>3^ <C*jIl« ,-S ^Jj&JI |JUI> JUAJj 

^1 j^ixj Ijm. li 3Lc>o,LxJI ^jjLSzll <Jl3 ^-o (3) jo^l >Ju*£*JI jlii-l lilj 



V jlkll ^ulxJI JI*aL pjb 

: osJUJI crtA-JI ^l^ v3i^ c^ ^ f^ (DatHistl.frm) 

USE BillHist 

CREATE REPORT DatHist 

j^Lj US' » ^s^UI f>»JU (Product Code History) <^LiJI ^uLsS aj^ 

: Jj US' (Columns) sju*MI oLjXave juo^j 

(Date). (Part_No)« (Descript). (Qty), (Unit_Price)< (Amount) « 
(Cust_No) 

AJh j»-Xj, . (DatHist2 . f rm) l_U1I *JL«.L^ ajlijl ^ Ji-JI o-^b 

USE PayHist 

CREATE REPORT DatHist2 



y.i.i'. i.. '.rudi.^.Li.iu ai.u i. i..ij i i.i i .i .iii .■j.j i. Mi: 



p3l»jJJ oLL»» £*b>i jiJ^* 



(Date). (Check_No) ((Amount) < (Descript) , (Cust_No) . 

SilxiJI ^UsJI *l£jl Juuj . 2l»-UJI ._*«*»- ^^jj-1 ^jjUa ,J\ pLijI s^oljJI .kk>i>*« 
: jft\£ Aihj . ^Uill aJu» &> £j> J-£ ^ULU Jl ^3$j jjjJI g^l^JI olsS" jxZj 

**************** ARHist.prg, 

* Search history, and current charges and payments 

* files and display summary data. 

* Called from AR Print Options menu. 
HChoice = 

DO WHILE HChoice # 4 
CLEAR 

DO Title WITH "History Menu" 
TEXT 

1. Search by customer code 

2 . Search by product code 

3. Search by date 

4. Return to main menu. 
ENDTEXT 

@ 24,1 SAY "Enter choice (1-4) " 

GET HChoice PICT "9" RANGE 1,4 
READ 
*------ set up search macro accordingly. 

§ 4,0 CLEAR 
DO CASE 

CASE HChoice = 1 

M_Cust_Np = ; 

@ 15,5 SAY "Enter customer number" 

GET M_Cust_No PICT "99999" 
READ 

LookAT = "Cust_No" 
LookFOR = M_Cust_No 
RepForml = "CusHistl" 
RepForm2 = "CusHist2" 
SET EXACT ON 
CASE HChoice = 2 



m 
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p3LaJI cilfL^» g*bjJ Ji»l2* 



M_Code - SPACE (5) 

@ 15,5 SAY "Enter product code" GET M_Code 

READ 

LookAT = "UPPER (Part_No)" 

LookFOR = UPPER (M_Code) 

RepForml = "CodeHist" 

SET EXACT ON 
CASE HChoice = 3 

M_Dat = SPACE (8) 

@ 15,5 SAY "Enter Date " GET M_Date 

READ 

LookAT = "DTOC(Date)" 

LookFOR = TRIM(M_Date) 

RepFlrml - "DatHistl " 

RepForm2 = "DatHist2" 

SET EXACT OFF 
CASE Hchoice = 4 

SET EXACT OFF 

RETURN 
ENDCASE 

*-.____ &sk about printer. 
@ 5,0 CLEAR 
STORE " " TO Lp, Mac 
@ 15,5 SAY "Send report to printer ? (Y/N) " ; 

GET LP PICT "J" 
READ 
IF Lp = "Y" 

Mac = "TO PRINT 
END IF 

*_____ Search billing History file 
USE BillHist 

SET FILTER TO StLookAt = LookFor 
COPY TO Temp 
USE Temp 

APPEND FROM Charges FOR & LookAT = LookFOR 
SET FILTER TO &LookAT = LookFOR 
REPORT FORM &RepForml &Mac 



TTV 
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p3L»*Jf olfl**** gubjj jii^* 3 



* - - - if not searching for product code , Search 

* - - - Payments files 
IF HChoice # 2 

USE PayHist 

SET FILTER TO SLookAT = LookFOR 
REPORT FORM &RepForm2 &Mac PLAIN NOEJECT 
ENDIF 

* - - - IF report not going to printer, pause. 
IF Lp # "Y 

■p 

WAIT 
ENDIF 
ENDDO (HChoice # 4) 



m 
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^l^aJI &i±»j& 



L *,-«-£j| ! U*Jjl »-lirf J-a^J A ***** *>UJI oLL— ^li^J 5L-^JI ^^ 
is>*~~ usTj- c- ^— r- . ^ ^ ^ (Post . prg) plkjJ , 

(REPLACE) _jJi\ JjAZ-.g ^Jij V^ 1 t> !U * LJI S > :iJI O 1 * (^ ■ iU5 
J±i- SJjIjJI JJU Jl Uj,. ( T. ) J^ fc^l Jl* oliL, JXZtf »i^o 
J>U. ^\ji\ JL* Jl L-*, ( v ) JU <ijljil JJb* Lo U ^J ( v ) 
obLu Jl l-w ( \. ) J>U fcj^l ja* obLu jLm, . U^j ( \. ) 

. Ljj v ^ ^ J>U- ^3!>JI J** 

^JJLJI ^ji-skJ xi. ^ . (Summary. dbf) ^j—-. .a.^ obLu s^>L3 

J.x£&u.L (Summary. dbf) otUI . (Master. dbf) ,^-^JI 

' . (UPDATE FROM) ^1 

hJLu (Billed = .T.) U>Ju.w3 *3 ^aJI ^J^ S-^L>JI o>U«JI. J£ -T 
iSj^. UUL £_* ^--Jj (BillHist.dbf) ^JA\ J^-JI Ull. ^1 
. jlk\?JI j^fiJJ J^-JI $*>► Ul> ;>*«»d JJij ( Charges. dbf J^ijJLlI 

. ( Payments. dbf ) jljJl^I SS^ >_flJU J* <J*JI ol» o*-* 2 •^■3 p** - * 
^1 (Posted = .T.) UL-^ fj ^1 o>U-JI 2-** J-Si j^j ^* 
5S>. «_«JL> ^ l#*-*-o *ij US' . (PayHist.dbf) l5 £o J UI -aj-a-jJI .-ii.* 

. (Payments. dbf) jljJu^xJI 

oLjfw JjJuJ *2j UjuJb-J jJ ^Jl ^3|>iJI o5U«- J*»P O - 'U^ 1 •*** "° 

j^jjb Jl^'AibSj (Starting Balance) jifitt JLSljctfll fcjjjil JJU 
. (REPLACE) ^Ml pljLiouolj (Last Updating) Aja^ ^iT 




a \S 151 Sl^t Ujj ^b j3 juJu^Ij Jj-JI 55>J ^^l^J' Je--^ 1 V^ 

: 5JWI jjLjl **ls£ pi* jUJJ . Ijl* b-^ JUI 

* - - - -Show progress 

@ 20,1 SAY "Aging the balances : Record" + ; 
STR(RECN0() ,4) + "OF" + STR ( RECCOUNT ( ) , 4) 
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fUuli (jjfr&JI AjAaJdl 



Aging the balance : Record 2 of 100 

pUjuI l5 s* j^l^ (Record) U£J JUI aJuJI Ju^ J^«, J£ Jjb ^.j 

t^l^^t^jCL, (Post.prg) pl^Jlj 

*************** *Post.prg 

* Posts summarized monthly accounts to the Customer 

* file. Called from AR main menu . 
SET DELETED ON 

CLEAR 

DO Title WITH "Monthly Posting" 

*_____ Display and get password 

TEXT 

This is the program to post Payments and charges. 
Be sure you have printed all the monthly invoices 
before proceeding with this program. 

ENDTEXT 

Password = SPACE (7) 

@ 15,12 SAY "Enter password to proceed" GET Password ; 

PICT "!!!!!!! " 
READ 

* - - - - If proper password not entered return to the 
*------ menu. 

IF Password # "MOHAMED" 

? "Illegal password" , CHR(7) 

SET DELETED OFF 

RETURN 
ENDIF 

__ 
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* - - Do the posting, first, shift all current 30 , 60 

* - - and 90 day billings "back" one field in the 

* - - customer file. 

@ 20,1 SAY "Working " 

CLOSE DATABASES 
USE Customer; 
REPLACE ALL; 

Bal_90Plus WITH Bal_90Plus + Bal_90, ; 

Bal_90 WITH BAL_60, ; 

BAL_60 WITH Bal_30, ; 

Bal_3 WIHT Chg_Curr - Pay_Curr 
REPLACE ALL; , 

Chg_Curr WITH , ; 

Pay_Curr WITH 

* - - - Now, create summary of the charges database by 

* - - - customer number. 
SET SAFETY OFF 

USE Charges INDEX ChrgNo 
COPY STRUCTURE TO Summary 

TOTAL ON Cust_No TO Summary FIELDS Qty , ; 
Unit_Price , Amount FOR Billed 

* - -Now update the customer database current balances 

* - -with data from the charges summary file. 
SELECT 1 

USE Customer INDEX CustNo 
SELECT 2 
USE Summary 
SELECT 1 

UPDATE ON Cust_No FROM Summary REPLACE Chg_Curr WITH ; 
B -> Amount 

* - - - Move all posted transactions to the billing 

* - - history file 
SELECT 2 

USE BillHist 

APPEND FROM Charges FOR Billed 

m 
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* - - Then empty the current charges file. 

CLOSE DATABASE 

USE Charges INDEX ChrgNo 
DELETE ALL FOR Billed 
PACK 

* - - Now , summarize payment totals for each Customer 
USE Payments INDEX PayNo 

COPY STRUCTURE TO Summary 

TOTAL ON Cust_No TO Summary Fields Amount FOR Posted 

* - -Now update the customer database current balances 

* - -with data from the payments summary file. 
SELECT 1 

USE Customer INDEX CustNo 
SELECT 2 
USE Summary 
SELECT 1 

UPDATE ON Cust_No FROM Summary REPLACE Pay_Curr ; 
WITH B -> Amount 

* - - Append all posted transactions to the payments 

* - - history file. 
SELECT 2 

USE PayHist 

APPEND FROM Payments FOR Posted 

*_____ Then empty the current payments file. 

CLOSE DATABASES 

USE Payments INDEX PayNo 

DELETE ALL FOR Posted 

PACK 

* - - - Then update the 'last billed 1 and 'starting 

* - - balance 1 Fields in the customer database. 
USE customer. 

REPLACE ALL Start_Bal WITH Start_Bal + Chg_Curr ; 
- Pay_Curr 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



fUuii is*** AiJ^sX 



REPLACE ALL Last_Updat WITH DATE() 

*__._..- Adjust aged balances. 

GO TOP 

DO WHILE .NOT. EOF() 

*----- Show progress. 

@ 20,1 SAY "Aging the balances : Record" + ; 

STR(RECNO(), 4) + "OF" + STR(RECCOUNT() , 4) 
*_____ if no payment, skip calculations. 
IF Pay_Curr < = 
SKIP 
LOOP 
ENDIF (Pay_Curr < = 0) 

* _ . _ Otherwise , subtract the payment 

More = .F. 

NextBal - .T. 

IF Bal_90Plus > 

Remain = Pay_Curr - Bal_90Plus 
IF Remain > = 

REPLACE Bal_90Plus WITH 
More = .T. 
ELSE 

REPLACE Bal_90Plus WITH ABS (Remain) 

. NextBal = .F. 
ENDIF (Remain > = 0) 
ENDIF (90+ > 0) 

* - - - - - 90 days. 

IF NextBal .AND. Bal_90 > 
IF More 

Remain = Remain - Bal_90 
ELSE 

Remain = Pay_Curr - Bal_90 
ENDIF (More) 
IF Remain > = 

REPLACE Bal_90 WITH 

More = .T. 
ELSE 

REPLACE Bal_90 WITH ABS (Remain) 
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NextBal = .F. 
ENDIF (Remain >= 0) 
ENDIF (NextBal & Bal90 > 0) 
*----- 60 days. 
IF NextBal .AND. Bal_60 > 
IF More 

Remain - Remain - Bal_60 
ELSE 

Remain = Pay_Curr - Bal_60 
ENDIF (More) 
IF Remain > = 

REPLACE Bal_60 WITH 
More = ,T. 
ELSE 

REPLACE Bal_60 WITH ABS (Remain) 
NextBal = .F. 
ENDIF (Remain >= 0) 
ENDIF (NextBal & Bal60 > 0) 
*----- 30 days. 
IF NextBal .AND. Bal_30 > 
IF More 

Remain = Remain - Bal_30 
ELSE 

Remain = Pay_Curr - Bal_30 
ENDIF (More) 
IF Remain > = 

REPLACE Bal_30 WITH 
More = .T. 
ELSE 

REPLACE Bal_30 WITH ABS (Remain) 
NextBal - .F. 
ENDIF (Remain >= 0) 
ENDIF (NextBal & Bal30 > 0) 
SKIP 
ENDDO (end of file) 



rn 
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*----- Display closing messages 

CLEAR 

? CHR(7) 

TEXT 

The posting procedure is complete. Use option 4, 
from the main menu to print current monthly 
summary and aging reports. 

ENDTEXT 

* ----- - Get rid of any old keypresses. 

CLEAR TYPEAHEAD 

WAIT "Press any key to return to main menu . . . . " 

*----- Return to the main menu. 

SET DELETED OFF 
CLOSE DATABASES 
RETURN 



5JU 



J£j JLusUJI oLL.aJI JuAiS ^ (IF) ja\^ SJl* »IJl»JLu.I £«bjJI ^ Ji^Mjj 

jU c (Pay_Curr <= 0) ^1 SjuJl*. <^3 ^1 jujl«j *Ij 1 lil M£J . 
,J^_»jJI Jl JlaaM »xj JJJJj . Ia)[^I (_^LL« oIjL**- Jcub c***J <o1 ,ji*j Ijuh 

%3 ^JJI aJLII q\£ liU . Ja^JI aJU* ^ (Remain) _>**xll >Iju>olJ »jljj 
( v ) oLLooJI ^U ^^U j^jj-JI jkitj Ij^jbj . ( \jiuo j^jLj I4I1UJ. ) oLLwjsJI 



TTV 
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: 3JUJI o^jJutiJi pL»-l k_*»o Aib JuAii), 

. (Master. dbf) j^-j^JI Qj^d\ UL ^ S^^If .JU^I 
t 5— *-*-3j_ll ^LiwJI uiJL ^Jl LfrJ L ^p *jb ^1 o^L>«JI >~*3 *£* - r 

• (j^i-l 8^. LjJL*._p *sj"J| l5 i>. ^Lu« JuMu (Master. dbf) 
$-£h»- jl p^LjJI cjLL^ j^ob^j ^ (Charges) .j^JI *£>*. jLp^.1 ^ - T 

. ^UJU ,^-^1 udll Jl LjL-jj JJ (Payemnts) oIjuJI 

(Charges. dbf) Jj^bJ tf^* ,_iL. Jl jujuv Js». UL>I vc>o oIjJI ^j 
JJUJI Ijj>j . Tl J-^UJI OL Jl <L»>ijj Jtf J*~JI tf lil ^b^JU JW.JJ 
15 s <^£>* J>1 (InJflU^JI Jjuj ^^ (InPost) w~ij LlLjw* xi*. ^^ 
.(MODIFY STRUCTURE) jJi\ JjLas^Lj JJi -_L, (Inventory)^ 
^ (BillHist.dbf) LS *o,Ldl o^JI JaL Jl JJUJI ,-^ii *lLi»l j^US* 

J| LjLa^J |Cj ^1 .J^UwuJI J-J- t^ J . — «JLLI lift jl ^*a- . Z£jA\ t/uuiij ^wu 

. (Customer. dbf) ,^-^JI *X*JI oLjL-I- ._aL 

^5-L ^Jl <ZL±\ ^ jua* J^, Ji" 1 j^Ldl ^^ J^^l U^ ^^Uj 
Jl iL^p pa* ji ol g-b^JI jjL ^ ijj^j ^ (Charges. dbf ) J^ljl <£>. 
Jl j-^w jJa^. ttLbl jj^i ,y> jLli ^sj, . (Master. dbf ) c5 --JjJI qjUJI .JL, 
J^>«-JI a_sI — iL. ^UJI ^jjJI ^i (NewChrg.prg) *>LJI UL-.I ^b^j 

: JLdl ^^kwJI fclil *2j &+». . juAsJI 
REPLACE InPost WITH .F. 

IF .NOT. Exiting 

SELECT 2 

APPEND BLANK 

REPLACE Cust_No WITH M_Cust_No 

REPLACE Date WITH DATE() 

REPLACE Billed WITH .F. 

REPLACE InPost WITH .F. 

SET FORMAT TO FNewChrg 

READ 

CLOSE FORMAT 

REPLACE Amount WITH Qty * Unit_Price 
END IF 



Til 
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(Charges. dbf) dkj—JI tfj- «-Al* ^ (InPost=.F. ) UL^ ^ ■ jl ^1 
^jl^xJI JJl* j-*^ rJ -aj US' (BilHist.dbf),^^^! uij— Jl ^J-Loj 

. Lib s^. -dL-^J ^ ^ (True) J\ (Inpost) 

k.iJL. £»->Jl»^ pl» ^Ul jj-b^JI _>* (Updater.prg) jj«-obj-JI Ji •z^j 
^bjj jJjLiJ Jl ^^ gJj^JI la* Jl Ju» UL»I ^ -alW . ^--s^JI oj 1 ^' 
55^ ULL o-« ^j-^jJI ULllI «±oo»^j jj-^Sj (ARUpdate.prg) <«*J jJ-T 
^LS" (Updater)" ^J^xJI «_iL> ZAg J-3 jJa-^JI 11a iiLbl ^ . J^-JI 

DO ARUpdate 

: SJtxJI jjkJI qa q^j (ARUpdate.prg) g-b^J, 

♦#******#****** * ARUpdate.prg 

* Update the master file from charges and BilHist. 
CLEAR 

? "Updating from the A/R System . . " 
*----- use the charges databases. 

USE Charges 

*----- Copy nonupdated records to Temp File. 

COPY STRUCTURE TO Temp 

COPY TO Temp FOR .NOT. InPost 

*----- Now get the recrods from BillHist. 

USE Temp 

APPEND FROM BillHist FOR .NOT. InPost 

*--.--- Get the Temp file sorted by part number. 

INDEX ON Part_No TO ARIndex 

* _ _ _ use the Master file for updating . 

SELECT 1 

USE Master INDEX Master 

SELECT 2 

USE Temp INDEX ARIndex 



W 
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* - - - Update Master from the temporary A/R file. 
SELECT 1 

UPDATE ON Part_No FROM Temp REPLACE Qty WITH ; 
Qty - Temp -> Qty 

* - - - Use the origingal charges database file 

* - - - change all posted fields to true 
CLOSE DATABASES 

USE Charges 

REPLACE ALL InPost WITH .T. 

*______ Do the same thing with BillHist file. 

USE BillHist 

REPLACE ALL InPost WITH .T. 

*_-._-_ Return to the updater command file. 

RETURN 



TIT 
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(^Iji^ll J^oaJI clL^ 
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^1 (Advanced Tools) JLoJutdl ol^l £-. JC^^^ .jub ,_j^J| 
(jJLtl g*bjJI SpUi" ^ aj>j Liu.! CJiU « cJjj JL4* ^ .ji^uljJ ajj 






r ^oL-JI ^ g.brt c ^ J^ll J^uUI . J^ V%1 qm p y^\ |ju» 4^ j 

p.v^..ju j^-j oijL^i *sip ^^7 ~*i^i j a k*i -^ ^jGji j^aji J . 2uu_ 



TtV 
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. £*b,JI J>U- ^o olSLiJI <pLI» Jl g-j>JI JJa*vo ^U»o ^L*-^(l f J ^n ^ 

: ^flK c,li£ ^ (950) pJ>JI 3(*J . fl>JI iJuJ!^ o>*Uj| Jt^p J* 
(Nine Hundred and Fifty) 



. JLJJ\ ^ l^b£ fJL. ^sJI JLiJuJI ^«SJ| LjJL. *Jjm£ g-b^JI 1 A*»._, 
Sj^JI Jl i^ JT J^j j^j^JI jkLk. J* *j^-J[ ^^u Vj _^j ^JXI 
2u*^ gJ^JI .kkiJ. gSj g-b^JI II* U JJ jjj . ■ ,♦!,,* II ^9 -c& JO* ^S^sJI 
. SLUUI UyJl *\jjH\ J\ (999,999.99) ^ (1) ^ jjJp JfT 

Cr*^!^ ^-" *^ obLo sjlpIs oiJL »Lfij| ^1 & JJi t^^Jj 

: UUJI JyuJI ^ UOII Ijjb o^Sjlt, . jUA O.J g.b^JI jfetfj 43u>L 



lllillllMiSil. 


• ■■■•■ Wt ■flalBts ■••■-•■■■•■•■(■■■* 


jjp&ejjji 


1 CHECK.NO 


Numeric 5 





2 TO.WHOM 


Character 25 




3 AMOUNT 


Numeric 9 


2 


4 DATE 


Date 8 




■■ TOTAL ■■ 


48 





( t - XI ) J£& 



Tot 
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^ JapMI ^ oa* J£ ^^Jl J,Uil ^j^ ty ^ ^b^JI ^L£ J*3j 
< (Thirty) Jjl. oL>XJI flS-,1 jUJl^ S>li cJ^Jka. ^ j^^-a* Jl a-I, 

. s-^li ^JUL ^ ojj-jJL-dl 6Jla j^r^J *sj L£ . £ll . (Fourty) 

J>U. q^ ftjULif ^ (English. mem) a«-j wJOJIIaa, (Memory File) 

***»****«****#*** * English. prg 

* sets up memory file for storing English equivalents. 

CLEAR 

? "Creating English. mem file with English for numbers" 

? 

SET DEFAULT TO C 

SET TALK ON 

CLEAR MEMORY 



u = 


•i it 


Ul = 


"ONE" 


U2 = 


"TWO" 


U3 = 


"TREE " 


U4 - 


"FOUR " 


U5 = 


"FIVE " 


U6 - 


"SIX " 


U7 = 


"SEVEN " 


U8 = 


"EIGHT " 


U9 = 


"NINE " 


U10 


= "TEN " 


Ull 


= "ELEVEN " 


U12 


= "TWELVE " 


U13 


= "THIRTEEN " 


U14 


- "FOURTEEN " 


U15 


= "FIFTEEN " 


U16 


= "SIXTEEN " 


U17 


= "SEVENTEEN" 


U18 


= "EIGHTEEN" 


U19 


= "NINETEEN" 


U20 


« "TWENTY" 



Tar 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



oICjlJI ^Lsf g.b^ 



U30 = "THIRTY" 

U40 = "FOURTY" 

U50 - "FIFTY" 

U60 = "SIXTY" 

U70 = "SEVENTY" 

U80 = "EIGHTY" 

U90 = "NINETY" 

*----- Save all variables to English. mem file 

SAVE TO English 

CLEAR 

? 

? 

? 

SET TALK OFF 
RETURN 



j*4 ^Ul (English. mem) s^flJJI oL p UjI Jl ^^j ^b^JI IJla, 
1^_. j*xu JT 1 Ji*.^ . olSLaJI ^Lfijl ^b^ J^jLij joi s-^lJJI ^ <U>j 
J^> ( U5 ) >U*i <L^j v yLll ^1 JjUj (Jj <JL (U) j-^jg I*J 

. Ia£*j . (Thirty) Ja^, ( U30 ) « (Five) 

: JUI J^J\ J^lrf ^ lJ\U\ J u&L\ 13* Jx**x)j 
RESTORE FROM English 
j! (Procedure File) &\jL±J\ ULJL. ,l£il ^ jUi juo ^JLdl ijUJ\j 

: ^tf olz£ j^j, (Translat.prg) 

******#*#***#*#* *Translat.prg 

* ~ ~ ~ - - Procedure to convert a number to English 

*----- equivalent. 

PROCEDURE Trans 1 at 

PARAMETERS Number, English 



ToT 
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* Set up memory variables 

Counter = 1 

Start = 1 

String = STR (Amount, 9, 2) 

*_____ Loop through thousands and hundreds 

DO WHILE Counter < 3 

* - - - Split out hundreds , tens and ones. 

Chunk = SUBSTR( String, Start , 3) 

Hun = SUBSTR( Chunk , 1, 1) 

Ten = SUBSTR (Chunk, 2, 2) 

One = SUBSTR (Chunk ,3,1) 

*----- Handle hundreds portion. 
IF VAL (Chunk) > 99 

English = English + U & Hun + "Hundreds" 

ENDIF 

*----- Handle second 2 digits. 

T = VAL (Ten) 
IF T > 

DO CASE 

* _ - _ case 1 : handle even tens and teens; 
CASE (INT(T/10.0) = T/10.0) .OR. (T > 9 ; 
AND. T < 20) 
English = English + U & Ten 

* _ _ case 2 : Handle greater than 10 but 

* - - - not evenly divisable. 

CASE T > 9 .AND. (INT(T/10.0) # T/10.0) 
Ten = SUBSTR(Ten, 1,1) + '0' 
English - English + U & Ten + " " + U&one 

* _ _ _ case 3 : Handle less than 10 
CASE T < 10 

English = English + U & One 
ENDCASE 
ENDIF (T > 0) 
* Add "Thousand" if necessary 



Toi 
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IP Amount > 999.99 .AND. Counter = 1 
English = English + "THOUSAND" 

ENDIF (need to add "Thousand") 

*■----- Prepare for pass through hundreds. 

Start = 1 

Counter = Counter + 1 
ENDDO (while counter < 3) 
*----- Take out ratios 
IF INT (Amount) > 

English = English + "And" 
ENDIF 
English = English + SUBSTR( String, 8,2)+ "/100" 

: JUL^JI 



SET PROCEDURE TO Translate 

UujmJ g-b^JI J.JL^J ,J*3 \*^i3 • ^l—JI ojjJauiJI u-ftL ~i Jl Ijjti j^ijjj 

M_Amount = 9845 

English = " " 

DO Translat WITH M_Amount , English 

: JUI jJ»*JI =uli& Jlbj (English) lj\ jJI oiL ^1 JJi Jj ^^ 

RESTORE FROM English 

: UbJl'jjkljl 2-t^fLi JUlSJL 

*♦♦»*****»*** *Checks.prg 
*_____ sample program to write checks 



Too 
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CLEAR 

SET TALK OFF 

SET SAFETY OFF 

SET PROCEDURE TO Trans lat 

*..-___ Bring English equivalent variables. 

RESTORE FROM English 

*----- Use the checks database 

USE Checks 

INDEX ON CheckJSTo TO CheckNo 

? 

? "First Check to be printed will be", Check_No 

* 

? 

WAIT "Press any key to begin writing checks" 

CLEAR 

SET PRINT ON 

GO TOP 

DO WHILE .NOT. EOF() 

*----- Translate Amount to English 

M_Amount = Amount 

English = " . " 

DO Translat WITH M_Amount , English 

* _ _ _ print the check with required modification 

*_____ for the check 

? " " Date 

*? 

* 

? To_Whom, " " , Amount 

? 

? English 

■? 

7 

*? 

• 

SKIP 
ENDDO (not eof) 



Xa-\ 
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SET PRINT OFF 
CLOSE PROCEDURE 
CLEAR MEMORY 
CLOSE DATABASES 
RETURN 



Lji£o (Amount) &L1I Jp iS^** 1 *!•£*£ ^M» J' l5^ e-^x-" '^ 



ToV 
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£U-JI^ AJkiil alj-ftL a-JU ^^ ji_t. ^ Alij . "(Highlights) 

.( \ - TO ) J£iJI jJijI Sjjikll |/*l jLxi-lj j»Ju*.T »,.J] 



j SELECT SCREEN COLORS 





e 


EXECUTE PROGRAM H 




1 


VELLOU ON BLUE M 




2 


BLACK ON VELLOU ffl 




3 


WHITE ON READ Sf 




4 


VELLOU ON BLACK M 




5 


UHITE ON BLUE H 




6 


BLUE ON UHITE M 




7 


RED ON UHITE M 




8 


BLUE ON VELLOU H 




9 


MONOCHROME « 





< t - To ) J£& 



: ijftlZ -CjU£ »sjj (Colors. prg) £*li>JI |jjt 1>.....7 ^.jj 

************** * Colors, prg 

*----- to give the user the colors he needs. 

CLEAR 

SET TALK OFF 

SET STATUS OFF 

*----- Set up loop for displaying the menu 

DO WHILE .T. 

*----- Drow a box 

@ 1,24 TO 3,50 DOUBLE 

* - Set up loop for drawing a frame inside the box 

R = 6 



m 
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ljfill jLsil g-brt 



DO WHILE R > 5 .AND. R < 20 

§ R,22 SAY REPLICATE (CHR( 178) ,31) 

R = R + 1 
ENDDO 

*----- Erase an area from the box 
@ 7, 24 SAY CLEAR TO 18,50 
@ 5, 21 TO 20,53 DOUBLE 



@ 2, 28 SAY 
@ 8, 25 SAY 
@ 9, 25 SAY 
@ 10,25 SAY 
@ 11,25 SAY 
@ 12,25 SAY 
@ 13,25 SAY 
@ 14,25 SAY 
@ 15,25 SAY 
@ 16,25 SAY 
@ 17,25 SAY 
WAIT " " TO P 



Display the menu." 
Select Screen Colors" 

- Execute Program" 

1 - Yellow On Blue" 

2 - Black On Yellow" 

3 - White On Red" 

4 - Yellow On Black" 

5 - White On Blue" 

6 - Blue On White" 

7 - Red On White" 

8 - Blue On Yellow" 

9 - Monochrom 



DO CASE 

CASE P = 

RETURN 
CASE P = 1 

COLSTR 
CASE P = 2 

COLSTR 
CASE P = 3 

COLSTR 
CASE P = 4 

COLSTR 
CASE P = 5 

COLSTR 
CASE P = 6 

COLSTR 
CASE P = 7 

COLSTR 



"GR + /B, W/R, GR" 

"N/GR, W/R, GR" 

"W/R , W/N" 

" GR + /N , W/R , GR" 

" W/B , W/R , B" 

" B/W , W/R , R" 

"R/W , W/N , B" 



rw 
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JjBI jLstl g-brf 



CASE P = 8 

COLSTR = "B/GR , W/R , B" 
CASE P = 9 

COLSTR = "7/0 , 0/7 , 0" 

ENDCASE 

SET COLOR TO & COLSTR 

CLEAR 

ENDDO 

.±Ui Juw (CLEAR) ^1 JjtA&J jk3 « CHR(178) JpJI plJii^L JJU^b 
DO Colors 



TIT 
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Midair ddj*d &*\dji 
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JijAH aj-J 4l>» } C b -»« 



SjLttll j^-« J^-Jj- 8 3 C_il_^fal 2-«!>JI -LJa>we JUj_J LoXL* »J^l*uj ^Lj^JI Ix* 

( ) J-i*^j Jj^ oUUj'jII i~aU<> ^k-j^j -lCjjjkJ ^^ (Highlight) 



SJbdl 2LALJI j^lsa gobjJI lJub JuJja jcl*j 




1 I iiftiliiift ^ii M^l^iii^^^^^iiilii! 



2. Print reports 

3. Edit data 

4. Exit 



Highlight option with ^ orj^ and press £J 
or press appropriate menu number 



< i - n ) J&s. 



aJLjjJJI aJiA »>v.->>x w -i ( Sample. prg) g-ob^J L-o^*! £-»>t SJbdl ^^Ja^Jlj 



*************** * Sample .prg 

* Create a sample menu with moving "light bar". 

CLEAR 

SET TALK OFF 



nv 
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i^jOI aymaM Att&j g>b>j 



*----- create menu options (optl-opt4) 
optl = "l. Add new records" 
0pt2 = "2. Print reports" 
Opt 3 = "3. Edit data" 
Opt 4 = "4. Exit" 

*----- Display the menu 

§1,1 TO 3,79 DOUBLE 

8 2,32 SAY "Sample menu" 

@ 5,30 SAY Optl 

§ 6,30 SAY Opt2 

§ 7,30 SAY Opt3 

@ 8,30 SAY Opt4 

* - - Display instructions with graphics characters. 

@ 14,1 TO 18,78 DOUBLE 

§ 15,18 SAY "Highlight option by using" 

§ 15,40 SAY CHR(24) + "or" + CHR(25) + "and press" ; 

+ CHR(17) + CHR(217) 
@ 17,22 SAY "or press appropriate menu number" 

*----.- initialize memory variables. 

Opt = l 

Sub = STR(Opt,l) 

KeyPress = 

Choice = 

*_____ Reverse video on option 1 

@ 5,30 GET Optl 

CLEAR GETS 

*_____ Loop for choosing menu options. 
DO WHILE Choice # 4 

*----- Wait for a keypress. 

KeyPress = 

DO WHILE KeyPress = 
KeyPress = INKEY() 

ENDDO (KeyPress) 



V\h 
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Js~t aj-J 4s,*! e-bj. 



*----- Arrow key pressed. 
IF KeyPress = 24 .OR. KeyPress = 5 

@ Opt+4,3 SAY Opt & Sub 

Opt = IIF (KeyPress = 24, Opt+1, Opt - 1) 

Opt = IIF (Opt > 4 , 1, Opt) 

Opt = IIF (Opt < 1 , 4, Opt) 

Sub - STR(Opt,l) 

@ Opt+4,30 GET Opt &Sub 

CLEAR GETS 

LOOP 
ENDIF 

*----- Option numbers entered. 
IF KeyPress >= 49 .AND. KeyPress <= 52 
Choice = KeyPress - 48 

ENDIF 

*----- Return pressed 
IF KeyPress = 13 

Choice = opt 
ENDIF 

*----- An option was selected. 
IF Choice > 

CLEAR 

? 'Choice 1 , Choice 

Choice = 5 
ENDIF 
ENDDO (Choice) 

P-aTLi jLlij ij£\h j+*1a ^s <jl£ll j^iaM ,y> jL^t J£ Qij^-i ^^*i gv'k^Jj 



jjh»ii II qa 



r\\ 
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^s^iJI 3,-JI jL>»Jr —A 



e*°j* 



*----- create menu options (optl-opt4) 
optl = "l. Add new records" 
0pt2 = "2. Print reports" 
0pt3 - "3. Edit data" 
0pt4 - "4. Exit" 

*----- Display the menu 
@ 1,1 TO 3,79 DOUBLE 
@ 2,32 SAY "Sample menu" 
@ 5,30 SAY Optl 
@ 6,30 SAY 0pt2 
@ 7,30 SAY 0pt3 
@ 8,30 SAY 0pt4 

^1 (Help) sapLJI l».jl j*j> aJujL ^ ^ ^b^JI ^ JLJI 9 y^\j 

JUI j»l^^x«»g l^Jp J^^l fZ. ^xJI (Graphic Characters) f^JI o^ 
j^j, CHR(24) aJIjJI r ljL>^,L ( ) ^JLJI ^| 2uLS" -jl, ^ . (CHR) 

. CHR (25) JfljJI ^IjLiJ^L jjuY^JI Lis* 

c Ui« JS^, JioJ fc**- pw, Ujjj*. oL^ ^ CHR(17) <JUI Jj^zJ ^ 

§ 14,1 TO 18,78 DOUBLE 

@ 15,18 SAY "Highlight option by using" 

@ 15,40 SAY CHR(24) + "or" + CHR(25) + "and press" ; 

+ CHR(17) + CHR(217) 
@ 17,22 SAY "or press appropriate menu number" 

(Opt) ^si\ Jt. s-^lJJI ol^i, ^ S*^, pLLil ^ JLJJ *>>JI ^ 
«-*J fJ4 ^JJI (Sub) ^Jcd\j < ftjLstl ^ ^JJI ^J| ,^^^1 «ui ^ ^JJI 
D-i>^ <** j^ ^JJI (Keypress) ^judl, « .j^l I^J y>^>J\ £jb| ^^^ 

(Choice) ^iillj « ^j^s-JI <*!*. .kA-iu ^ill c LalL ^*UJI ,^-^1 a^ 
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yfaJti aj^Jt di>*J g-b^ 



Opt = 1 

Sub - STR(Opt,l) 
KeyPress = 
Choice = 

Jjt^JI l£il ^1 ^jit oj^> jj+k Jl ^zyj, ^-b^JI ^ JUI 9 y*\\j 
^JCd\ j^-o jkSj L^ . (GET) ^1 Jjui^ JJi, 3U3UUI ^ (1) jkSj jLxi3U 
jJL, . jLsi'sii IJu» J* ^^J a>Jjl ,la* £. -tlJJJ <^ja ^^ ^111 (GET) 

: j^uwJuJI Qjjh hi II tPl*- (>° «iU^ 

@ 5,30 GET Optl 
CLEAR GETS 

S^liJI ^JLp UjL <jUII ^^J sl,I^j *SU ^j^Sj -U>U- ^ ^ Jbdl P >>JI, 

: Jldl jI-imiII J>U- ^ jUij . ^J^i\ j»Ju*£~UI jli^wj ^5=* 

DO WHILE Choice # 4 

j^jll. ^i c lxill lAfc ^UJI (ASCII Code) ^jiJ^I *£ ^j^ij ^ JUUJI oJub 
aji" J^ J>-=u»JI ^ INKEY() -UIjJI -jl*^«Jj . (KeyPress) Sj^lJJI 
j#L~J\ q* Aii> £J*zjj . <ul* Ja«-iJL >jl>^-J.I >13 ^Uio j^-L (j^UJI ,^-SL- Till 

: SJUI 

KeyPress = 
DO WHILE KeyPress = 
KeyPress = INKEY() 
ENDDO (KeyPress) 

*^*JI ^Li«- jl (CHR(24)) J*^J ^4-JI £J£aa J* »JuiOL«JI iuU> JUpj 
*J, jU-ii.^11 ^ ^j-lll a^I ,UsiJ Jl ^i>j jUS U (CHR(25)) Jju^l 
oj^JI "j^i ^k ...II JuUS" SaU Jl ^a>j (SAY) jJi\ *i Aibj . ( \ ) 

-> *iXll .-3 Q>»JI jxS^JI ^ JL>-I^ rjis j] X>-\j *iL«l Jl (^O^J L£ . ^jij-iJI 

_,f (Opt) ^dl i~3 5jLj ^ (IIF) aJIjJI J.X&&J La Ji*.^ . (Opt) 
Jp »jL>a*wil iai-i. JU«a (KeyPress) _^d\ ^ *->y>±\ 5*^1 >-***». <l*>UiI 

S <UJuJI jl) h m II .•t-o «iL)j yt„iffl„"jj . i S *»-° »-UJLo 
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tgyiA a j-J •An*' e-hj* 



IF KeyPress = 24 .OR. KeyPress = 25 

@ Opt+4,30 SAY Opt & Sub 

Opt = IIF (KeyPress = 24, Opt+1, Opt - 1) 

Opt = IIF (Opt > 4 , 1, Opt) 

Opt = IIF (Opt < 1 , 4, Opt) 

Sub = STR(Opt,l) 

@ Opt+4, 30 GET Opt & Sub 

CLEAR GETS 

LOOP 
ENDIF 

■ g-j j) < J- iJI Oj-ojJI «iLj^>J [ yjjJa q» fjujJj f^j^-i _jL»*i-1jl »<X»iXmJ,I Ju^j LoJlLpj 
^ Ijlo r l3j% ^UJI ^Lfll ^ J <*^ . "(4) « (1) ^ IJj ^ <iU 
oJliJI rjJaj L$jL«»- (>a«j >jl>ol«JI ojLzio 15JJI jJuJI -U*3 ,jli jUjJ (48) 
^Ui jxIj, . aJuJI II4J JsUJI (ASSII) "^Sl-SI ^£J JJUll aJuJI ^ (48) 

: aJUJI j^kuJI J5li- q* 

* Option numbers entered. 

IF KeyPress > = 49 .AND. KeyPress < = 52 

Choice = KeyPress - 48 
ENDIF 

iJuJI £r&>3 *lJ (CHR(13)) JUo'fl £-l£A* J* »JL*JLwJ.I JaJLiu Ljulpj 

j^ l-> ■>.. II J5U. qj. jlli aj^ . (Choice) ^jcd\ .j (Opt) ^judl ^3 ^>>->ll 

: SJbdl 

IF KeyPress = 13 
Choice = opt 
ENDIF 

4^3 »ij (Choice) ^ill jla Jl>-dtf ^bi* J*. -LCi *3 ^^^i *j*JI Jjy>J 

^cb^j ^1 £^&dl ^ (DO CASE) j^fl Jj&lJ jCLj 4JdUI 3u3lSJI £.b,j ^j 



TYT 
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^Jj ajmmi Jg^J pJljJ 



jlSS g.b^JI II* ^ LI . (Choice) ^^dl ^ a^ll pI^JI J* *Lj ot" 
~bjj\ jUii-l ^ .^ (Choice) ^Aill ^» oj^ll pjpi ^^u ,lisAll fj 



TVT 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



r\ I t* q I i \ flj i 



J-l I ] 1 1 0-^3 



n r 1-1 .11 q n 



feat**}! e?b ^^I^^^^^^W^^j 
feu* s^ta^f oM ^ : ^ y- V t^^rN^i 

^S&*Wf j>JdJ t — $V(, j-jaWl ^tfM J-««*H * 



(dos) jjuiiJi P ik)j_.u)i C t. J ii- r 

MS DOS 

MS WINDOWS NORTON UTILITIES 
PC TOOLS VIRUS-SCAN 

A Jj>£WI Jjlj— 4-1 f— ll* - t 

LOTUS 123 
EXCEL 
QUATROPRO 



FOXBASE+ DBASE m+ 
FOXPRO DBASE IV 

( tyUI »>l ) 
oLlLJI JL*ly ijlil ,^JJ oUujk- V 
oULJI j—*\j <,■ ii'U-l ciLyjs— i - A 

^^Lk^l .L-SaJlj i^l ,^-kJI - i \ 



Delta Computer 



<nxt\\> „|^u tuiw/Yii.TVi/wwrrA i o-^j — .uii-i — qj-»i Jlt ii. t ^. J j_jiiio.di,i c • 
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